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Beschreibung x ^ita£? / 

Verfahren und Anordnung zur Ermittlung einer Gesamtfehlerbe- 
schreibung zumindest eines Teils eines Computerprogramms so- 
wie Compu terprogramm-E r zeugni s und cornputerlesbares Speicher- 
medium 

Die Erfindung betrifft ein Verfahren und eine Anordnung zur 
Ermittlung einer Gesamtf ehlerbeschreibung zumindest eines 
Teils eines Computerprogramms sowie ein Computer-Erzeugnis 
und ein cornputerlesbares Speichermedium. 

Ein solches Verfahren und eine solche Anordnung ist aus [1] 
bekannt . 

Aus [1] ist bekannt, eine Gesamtf ehlerbeschreibung in Form 
eines Gesamtf ehlerbaums fur ein Computerprogramm rechnerge- 
stiitzt zu ermitteln. Fur das Computerprogramm wird eine Kon- 
trollf lufibeschreibung in Form eines Kontrollf luftgraphen er- 
mittelt. Fur verschiedene Programmelemente des Computerpro- 
gramms wird unter Verwendung einer gespeicherten Fehlerbe- 
schreibung, die jeweils einem gespeicherten Ref erenzelement 
zugeordnet ist, eine Elementenf ehlerbeschreibung ermittelt. 
Mit der Fehlerbeschreibung eines Ref erenzelements werden mog- 
liche Fehler des jeweiligen Ref erenzelements beschrieben. Aus 
den Elementenf ehlerbeschreibungen in Form von Elementenf eh- 
lerbaumen wird die Gesamtf ehlerbeschreibung unter Berucksich- 
tigung des Kontrollf lufigraphen zu den Computerprogramm ermit- 
telt. 

Das Verfahren und die Anordnung aus [1] weisen insbesondere 
folgende Nachteile auf. Der ermittelte Gesamtf ehlerbaum ist 
hinsichtlich der untersuchten Fehler und deren Ursachen un- 
vollstandig und damit unzuverlassig . Somit ist diese Vorge- 
hensweise fur sicherheitskritische Anwendungen im Rahmen der 
Fehlerbaumgenerierung fur ein Computerprogramm nicht sinnvoll 
einsetzbar. Auch sind die einzelnen Fehlerbaume, die den Re- 
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ferenzelementen zugeordnet sind, unvollstandig und damit un- 
zuverlassig. 

In [2] ist eine Ubersicht liber ein sogenanntes Slicing zu 
5 finden. Slicing entspricht der Analyse, die bei der Ursachen 
suche fur ein Fehlverhalten eines Computerprogrammes durchge 
fuhrt wird. Im Rahmen dieses Vorgehens wird geprttft, ob das 
Fehlverhalten durch eine aktuell betrachtete Anweisung verur 
sacht wurde. Ist dies nicht der Fall, so werden die Anweisun 

10 gen uberpriift, die fur die Anweisung Daten liefern oder ihre 
Ausfuhrung steuern. Dieses Verfahren wird fortgesetzt, bis 
keine Vorgange mehr existieren, also Eingabedaten des Compu- 
terprogramms erreicht werden. Beim Slicing werden sogenannt 
Slices ermittelt. Mit einem Slice wird dargestellt, welche 

15 Anweisungen auf welche Weise von einem betrachteten Wert be- 
einfluflt werden. Im weiteren wird unter dem Begriff Slicing 
stets ein rUckwarts gerichtetes Slicing verstanden. 

Aus [3] ist es bekannt, zu einem Computerprogramm eine Kon- 
20 trollf lulibeschreibung und eine Datenf luftbeschreibung zu er- 
mitteln. In [3] wird diese Darstellung als Ausgangsbasis fur 
sogenanntes datenf luftorientiertes Testen des Computerpro- 
gramms eingesetzt. Den Anweisungen (Knoten) des Kontrollf lufi 
graphen werden Datenf lufiattribute (Datenf lulibeschreibung) zu 
25 geordnet, die die Art der in den Anweisungen des Computerpro 
grammes enthaltenen Datenzugrif f e beschreibt. Es werden 
schreibende Zugriffe und lesende Zugriffe unterschieden. 
Schreibzugrif f e werden als Definitionen (def) bezeichnet. Le 
sende Zugriffe werden als Referenz bezeichnet. Erfolgt ein 
30 lesender Zugriff in einer Entscheidung, so wird dieser Zu- 
griff als pradikative Referenz (p-use, predicate use) be- 
zeichnet. Ein lesender Zugriff in einer Berechnung eines Wer 
tes wird als berechnende Referenz bezeichnet (c-use, computa 
tional use) . 

35 

Aus [4] sind Grundlagen uber einen Fehlerbaum bekannt. Unter 
einem Fehlerbaum ist, wie in [4] beschrieben, eine Struktur 
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zu verstehen, die logische Zusammenhange zwischen Eingangs- 
groiien des Fehlerbaums beschreibt, welche Eingangsgrofien zu 
einem vorgegebenen unerwunschten Ereignis fuhren. 

5 Ferner sind aus [5] verschiedene Verfahren zur Fehlerbaum- 
analyse bekannt. 

Der Erfindung liegt das Problem zugrunde, eine Gesamtf ehler- 
beschreibung zu ermitteln, die gegenliber einer gemali dem Ver- 
io fahren aus [1] bekannten Ermittlung eines Gesamtf ehlerbaums 
zuverlassiger ist . 

Das Problem wird durch das Verfahren sowie durch die Anord- 
nung mit den Merkmalen gemafl den unabhangigen Anspriichen so- 
15 wie durch das Computer-Erzeugnis und das computerlesbare 

Speichermedium mit den Merkmalen gemafi den unabhangigen An- 
spriichen gelost. 

Bei einem Verfahren zur Ermittlung einer Gesamtf ehlerbe- 
20 schreibung zumindest eines Teils eines Computerprogr amines , 

durch einen Computer, ist zumindest der Teil des Computerpro- 
grammes gespeichert. Es wird eine Kontrollf lufibeschreibung 
und eine Datenf lufibeschreibung zu dem Teil des Computerpro- 
grammes ermittelt und es werden Programmelemente aus dem Teil 
5 des Computerprogrammes ausgewahlt. Fur jedes ausgewahlte Pro- 
grammelement wird unter Verwendung einer gespeicherten Feh- 
lerbeschreibung eine Elementenf ehlerbeschreibung ermittelt. 
Die Fehlerbeschreibung ist jeweils einem Ref erenzelement zu- 
geordnet. Mit der Elementenf ehlerbeschreibung werden mogliche 
30 Fehler des jeweiligen Programmelementes beschrieben. Mit ei- 
ner Fehlerbeschreibung eines Ref erenzelements werden mogliche 
Fehler des jeweiligen Ref erenzelements beschrieben. Aus den 
Elementenf ehlerbeschreibungen wird unter Beriicksichtigung der 
Kontrollf luJJbeschreibung und der Datenf luJibeschreibung die 
35 Gesamtf ehlerbeschreibung ermittelt. 
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Eine Anordnung zur Ermittlung einer Gesamtf ehlerbeschreibung 
zumindest eines Teils eines Computerprogrammes weist einen 
Prozessor auf , der derart eingerichtet ist, dafl folgende Ver- 
f ahrensschritte durchfiihrbar sind: 
5 - Zumindest der Teil des Computerprogramms ist gespeichert, 

- es werden eine Kontrollf luBbeschreibung und eine Daten- 

f luBbeschreibung fur den Teil des Computerprogramms ermit- 
telt, 

- aus dem Teil des Computerprogrammes werden Programmelemen- 
10 te ausgewahlt, 

- fur jedes ausgewahlte Programmelement wird unter Verwen- 
dung einer gespeicherten Fehlerbeschreibung, die jeweils 
einem Ref erenzelement zugeordnet ist, eine Elementenf eh- 
lerbeschreibung ermittelt, mit der mogliche Fehler des je- 

15 weiligen Programmelements beschrieben werden, 

- mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, 

- aus den Elementenf ehl.erbeschreibungen^wird die .Gesamtf eh- 
20 lerbeschreibung unter Beriicksichtigung der Kontrollf luBbe- 
schreibung und der Datenf luBbeschreibung ermittelt. 

Ein Computerprogramm-Erzeugnis umfaBt ein computerlesbares 
Speichermedium, auf dem ein Programm gespeichert ist, daB es 
25 einem Computer ermoglicht, nachdem es in einen Speicher des 
Computers geladen worden ist, folgende Schritte durchzuflihre 
zur Ermittlung einer Gesamtf ehlerbeschreibung zumindest eines 
Teils eines Computerprogramms: 

- Zumindest der Teil des Computerprogramms ist gespeichert, 
30 - es -werden eine Kontrollf luBbeschreibung und eine Daten- 

f luBbeschreibung fur den Teil des Computerprogramms ermit- 
telt, 

- aus dem Teil des Computerprogrammes werden Programmelemen- 
te ausgewahlt, 

35 - fiir jedes ausgewahlte Programmelement wird unter Verwen- 
dung einer gespeicherten Fehlerbeschreibung, die jeweils 
einem Ref erenzelement zugeordnet ist, eine Elementenf eh- 
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lerbeschreibung ermittelt, mit der mogliche Fehler des je- 
weiligen Programmelements beschrieben werden, 

- mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 

5 ben, 

- aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibung unter Berucksichtigung der Kontrollf lufibe- 
schreibung und der Datenf lufibeschreibung ermittelt. 

10 Auf einem computerlesbaren Speichermedium ist ein Programm 

gespeichert, dafi es einem Computer ermoglicht, nachdem es in 
einen Speicher des Computers geladen worden ist, folgende 
Schritte durchzuf tihren zur Ermittlung einer Gesamtf ehlerbe- 
schreibung zumindest eines Teils eines Computerprogramms : 
15 - Zumindest der Teil des Computerprogramms ist gespeichert, 

- es werden eine Kontrollf lufibeschreibung und eine Daten- 

f lufibeschreibung fur den Teil des Computerprogramms ermit- 
telt, 

- aus dem Teil des Computerprogrammes werden Programmelemen- 
20 te ausgewahlt, 

- fur jedes ausgewahlte Programmelement wird unter Verwen- 
dung einer gespeicherten Fehlerbeschreibung, die jeweils 
einem Ref erenzelement zugeordnet ist, eine Elementenf eh- 
lerbeschreibung ermittelt, mit der mogliche Fehler des je- 

5 weiligen Programmelements beschrieben werden, 

- mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, 

- aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
30 lerbeschreibung unter Berucksichtigung der Kontrollf lufibe- 
schreibung und der Datenf lufibeschreibung ermittelt. 

Durch die Erfindung ist es nunmehr moglich, eine zuverlassi- 
ge, die Eigenheiten eines Computerprogramms berucksichtigende 
35 Gesamtf ehlerbeschreibung fur ein Computerprogramm oder einen 
Teil desselben zu ermitteln. Da die ermittelte Gesamtf ehler- 
beschreibung wesentlich zuverlassiger ist als die gemafi dem 
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Verfahren aus [1] ermittelbare Gesamtf ehlerbeschreibung, ist 
die Erfindung auch fur sicherheitskritische Anwendungen, d.h. 
insbesondere fur die Ermittlung einer Gesamtf ehlerbeschrei- 
bung ei*nes sicherheitskritischen Computerprogramms geeignet. 

5 

Bevorzugte Weiterbildungen der Erfindung ergeben sich aus den 
abhangigen * Anspriichen . 

Die Kontrollf lufibeschreibung und/oder die Datenf lufibeschrei- 
10 bung kann/konnen in Form eines Kontrollf luBgraphen bzw. eines 
Datenf luligraphen vorliegen. 

Die Fehlerbeschreibung kann in Form eines gespeicherten Feh 
lerbaums vorliegen und die Elementenf ehlerbeschreibung kann 
15 als Elementenf ehlerbaum ermittelt werden. In diesem Fall kann 
die Gesamtf ehlerbeschreibung als Gesamtf ehlerbaum ermittelt 
werden. 

Durch diese- Weiterbildung ist eine standardisierte Darstel- 
20 lung einer Fehlerbeschreibung 1 moglich, was ,es einem Benutzer 
der Fehlerbeschreibung erheblich vereinfacht, diese zu analy- 
sieren. 

Die Gesamtf ehlerbeschreibung kann in einer Weiterbildung ein 
25 gesetzt werden zur Fehleranalyse des Teils des Computerpro- 
gramms . 

Diese Weiterbildung weist insbesondere den Vorteil auf, dafi 
eine automatisierte, zuverlassige Fehleranalyse, bei Vorlie- 
30 gen der Fehlerbeschreibungen in Form von Fehlerbaumen sogar 

eine gemafi den Fehlerbaumanalyseverf ahren "normierte" Analyse 
der Fehlerbeschreibung moglich wird. 

In einer weiteren Ausgestaltung wird die Gesamtf ehlerbe- 
35 schreibung als Gesamtf ehlerbaum ermittelt und der Gesamtf eh- 
lerbaum wird hinsichtlich vorgebbarer Rahmenbedingungen ver- 
andert . 
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Die Veranderung kann durch Hinzuftigen eines Erganzungsf ehler- 
baums erfolgen. 

5 Ein Ausfiihrungsbeispiel der Erfindung ist in den Figuren dar- 
gestellt und wird im weiteren naher erlautert: 

Es zeigen 

10 Figur 1 einen Computer, mit dem das Verfahren geraaJi dem Aus- 
fiihrungsbeispiel durchgeftihrt wird; 
Figur 2 ein Ablauf diagramm, in dem die einzelnen Verfahrens- 
schritte des Verfahrens gemafi dem Ausfiihrungsbeispiel 
dargestellt sind; 
15 Figur 3 eine Darstellung eines allgemeinen Fehlerbaums, wie 

er fur ein Ref erenzelement prinzipiell gebildet wird; 
Figuren 4a bis 4c einen Kontrollf luiigraphen (Figur 4a) , einen 
Slice (Figur 4b) und einen Fehlerbaum (Figur 4c) ftir 
eine Anweisungssequenz als Ref erenzelement eines Com- 
2 0 puterprogramms ; 

Figuren 5a bis 5c einen Kontrollf lufigraphen (Figur 5a), einen 
Slice (Figur 5b) und einen Fehlerbaum (Figur 5c) fur 
eine Auswahlsequenz als Ref erenzelement eines Compu- 
terprogramms ; 

Figur 6a bis 6c einen Kontrollf lufigraphen (Figur 6a), einen 
Slice (Figur 6b) und einen Fehlerbaum (Figur 6c) fur 
eine Schleife als Ref erenzelement eines Computerpro- 
gramms; 

Figur 7 ein Kontrollf luligraph mit Datenf lufigraph zu einem 
30 Computerprogramm gemafl dem Ausf uhrungsbeispiel ; 

Figuren 8a und 8b einen Slice der Ausgabe der Variable max 

(Figur 8a) bzw. einen Slice zu der Variable avr (Fi- 
gur 8b) zu dem Programm gemaJi dem Ausfiihrungsbei- 
spiel; 

35 Figur 9 den Slice ftir die Variable avr, in dem eine Struktur 
der Schleife aus dem Programm des Ausf uhrungsbei- 
spiels hervorgehoben ist; 
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Figur 10 einen Fehlerbaum fur die Annahme, dafi die Variable 
avr fehlerhaft ist; 

Figur 11 den Gesamt fehlerbaum gemafi Figur 10, wobei redundan- 
te Ereignisse aus dem Gesamtf ehlerbaum gemafi Figur 10 
zu einem Ereignis zusammengef afit worden sind. 

Fig.l zeigt einen Computer 100 mit dem das im weiteren be- 
schriebene Verfahren durchgefuhrt wird. 

Der Computer 100 weist einen Prozessor 101 auf, der iiber ei- 
nen Bus 103 mit einem Speicher 102 verbunden ist. Mit dem Bus 
103 ist ferner eine Eingangs-/Ausgangsschnittstelle 106 ver- 
bunden . 

In dem Speicher 102 ist ein Computerprogramm 104 gespeichert, 
fur das auf die im folgenden beschriebene Weise eine Ge- 
samtf ehlerbeschreibung ermittelt wird. Ferner ist in dem 
Speicher 102 ein Programm 105 gespeichert, durch das das im 
weiteren beschriebene Verfahren realisiert ist. Ferner sind 
in dem Speicher Fehlerbeschreibungen 115 unterschiedlicher 
Ref erenzelemente eines Computerprogramms gespeichert. Mit ei- 
ner Fehlerbeschreibung eines Ref erenzelements werden mogliche 
Fehler des jeweiligen Ref erenzelements beschrieben. Verschie- 
dene Ref erenzelemente und den Ref erenzelementen zugeordnete 
Fehlerbeschreibungen werden im weiteren detailliert erlau- 
tert . 

Mit der Eingangs-/Ausgangsschnittstelle 106 ist liber eine er- 
ste Verbindung 107 eine Tastatur 108 verbunden. Ober eine 
zweite Verbindung 109 ist die Eingangs-AAusgangsschnittstelle 
106 mit einer Computermaus 110 und iiber eine dritte Verbin- 
dung 111 ist die Eingangs-/Ausgangsschnittstelle 106 mit ei- 
nem Bildschirm 112 verbunden, auf dem die ermittelte Ge- 
samt fehlerbeschreibung des Computerprogramms 104 dargestellt 
wird. Uber eine vierte Verbindung 113 1st die Eingangs- 
/Ausgangsschnittstelle 106 mit einem externen Speichermedium 
114 verbunden. 
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Fig. 2 zeigt in einem Blockschaltbild die Vorgehensweise gemaii 
dem im weiteren beschriebenen Ausf uhrungsbeispiel . 

5 Aus dem gespeicherten Computerprogramm 104 werden ein Kon- 
trollf luligraph 201 und ein Datenf lufigraph 202 fur das Compu- 
terprogramm 104 ermittelt. 

Aus dem Computerprogramm werden einzelne Programmelemente 
10 ausgewahlt (Schritt 203) . Fur jedes ausgewahlte Programmele- 
ment wird unter Verwendung einer gespeicherten Fehlerbe- 
schreibung, die einen zu dem ausgewahlten Programmelement 
korrespondierenden Ref erenzelement zugeordnet ist, eine Ele- 
mentenf ehlerbeschreibung ermittelt (Schritt 204) . Mit der 
15 Elementenf ehlerbeschreibung werden mogliche Fehler des jewei- 
ligen ausgewahlten Programmelements beschrieben. 

Ausgehend von einem von einem Benutzer vorgegebenen zu unter- 
suchenden Fehlerereignis in dem Computerprogramm (unerwtinsch- 
20 tes Ereignis) wird in einem letzten Schritt (Schritt 205) ei- 
ne Gesamtf ehlerbeschreibung des Computerprogrammes fur den zu 
untersuchenden Fehlerfall ermittelt aus den Elementenf ehler- 
beschreibungen, wobei der Kontrollf luligraph und der Daten- 
fluftgraph beriicksichtigt werden. 

5 

Der ermittelte Gesamtf ehlerbaum wird dem Benutzer auf dem 
Bildschirm 112 dargestellt. 

Fig. 3 zeigt die grundlegende Vorgehensweise bei der Erstel- 
30 lung eines Fehlerbaums, wie sie im Rahmen des Ausgangsbei- 
spiels verwendet worden ist zur Bildung der im weiteren be- 
schriebenen Fehlerbaume zu den Ref erenzelementen . 

Zu einem von einem Benutzer ausgewahlten Ereignis 301 ist zu 
35 ermitteln, wie das ausgewahlte fehlerhafte Ereignis entstehen 
kann. Bei einem Computerprogramm kann eine fehlerhafte Ausga- 
be einer Variablen als ausgewahltes fehlerhaftes Ereignis 
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(unerwiinschtes Ereignis) 301 verursacht werden durch einen 
Kontrollf lufif ehler 303 und/oder einen Datenfehler 304 
(INKLUSIV-ODER-VerknUpfung 302) . 

5 Unter - eMeifrr^on^olliMM^er 303 ist ei-ne^f ehlerhaf te An- 
steuerung^der V^e^a^beitung^der j'eweiligen Variablen zu ver- 
stehen • 

Unter dem Datenfluflf ehler 304 ist ein Fehler zu verstehen, 
10 der durch fehlerhafte Daten bei der Verarbeitung entsteht. 

Der Datenflufif ehler 304 kann in dem aktuell betrachteten Ver- 
arbeitungsschritt neu entstehen (Block 306) und/oder er kann 
schon vorhanden gewesen sein und lediglich durch Fehlerpropa- 
15 gat ion erhalten bleiben Block 3 07) ( INKLUS I V-0DER-Ve r knup f ung 
305) . 

Ausgehend ^von diesen^ttber-legungen- werden im weitefen fur fol- 
gende Elemente eines Compu t e r p r o gramme s jeweils^der^,entspre- 
2 0 chende Fehlerbaum, ein die v An w eisung'bes c h r e e n d e r Slice so- 
wie ein Kontrollf luJigraph^dargelegt : 

- eine" Anweisungssequenz, 

- ein Auswahlelement, 

- ein Schleif enelement . 

25 

Anwei sungs s equen z 

Die Anwei sungs sequenz 401 weist die in Fig. 4a dargestellten 
30 drei Anweisungen auf . In einer ersten Anweisung 402 wird ei- 
ner ersten Variable j der- Wert 3 zugewiesen (j := 3) . Durch 
eine zweite Anweisung 403 wird einer zweiten Variable k der 
Wert 2 zugeordnet (k := 2) . Durch eine dritte Anweisung 404 
wird eine Summe uber die erste Variable und die zweite Varia- 
35 ble gebildet (i := j + k) . 
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Es wird gemafl der Vorgehensweise aus [2] zu dieser Anwei- 
sungssequenz 401 ein Slice 410 gebildet, wie er in Fig. 4b 
dargestellt ist. Die erste Anweisung 402 und die zweite An- 
weisung 403 haben beide Auswirkungen auf die dritte Anweisung 
404, was durch zwei Pfeile 411, 412 in dem Slice 410 darge- 
stellt ist, 

Zu dem Kontrollf luligraph 401 ergibt sich der in Fig. 4c darge- 
stellte Fehlerbaum 420 fur folgendes vorgegebenes unerwunsch- 
tes Ereignis 421: 

"Variable i ist nach der dritten Anweisung f ehlerhaf t" . 

Das fehlerhafte Ereignis 421 kann durch einen Fehler bei der 
betrachteten dritten Anweisung 404 selbst bei bis zu diesem 
Anweisungsschritt korrekten Daten erzeugt worden sein (Ele- 
ment 422 in Fig. 4c) . Das fehlerhafte Ereignis 421 kann jedoch 
auch durch verfalschte Eingabedaten der dritten Anweisung 
verursacht werden, d.h. durch INKLUSIV-ODER-Verknupf ung 424 
der Ereignisse, dafl die zweite Variable k nach der zweiten 
Anweisung fehlerhaft war (Element 425) und/oder dafl die erste 
Variable j nach der ersten Anweisung 402 fehlerhaft war (Ele- 
ment 42 6) . Das Ergebnis der ersten INKLUSIV-ODER-Verknupf ung 
424 wird inklusiv-oder verkniipft mit dem Ereignis, dafl die 
dritte Anweisung fehlerhaft ist (INKLUSIV-ODER-Verknupf ung 
423) . 



Auswahlelement 

Bei einem Auswahlelement als Ref erenzelement mtissen Fehler- 
moglichkeiten der Datenflusse und der Kontrollf lusse inner- 
halb des Computerprogramms beachtet werden. 

In den Fig. 5a bis Fig. 5c ist ein Kontrollf luftgraph 501 (vgl. 
Fig. 5a), ein Slice 520 (vgl. Fig. 5b) sowie ein Fehlerbaum 540 
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(vgl. Fig. 5c) fur eine If-Then-Else-Anweisung als Auswahlele- 
ment dargestellt • 

Der Kontrollf lufigraph 501 umfalit folgende sechs Anweisungen: 
5 - Eine erste Anweisung 502, mit der einer ersten Variable j 
der Wert 3 zugeordnet wird (j := 3), 

- eine zweite Anweisung 503, mit der einer zweiten Variable 
k ein vorgebbarer Wert zugeordnet wird (k := . ..), 

- eine dritte Anweisung 504, in der tiberpruft wird, ob die 
10 zweite Variable k einen Wert grofier als 0 aufweist; ist 

der Wert der zweiten Variable grofier 0, dann verzweigt die 
Anweisung zu einer vierten Anweisung 505, sonst zu einer 
funften Anweisung 506, 

- die vierte Anweisung 505, in der einer dritten Variable i 
15 der Wert der zweiten Variable k zugeordnet wird (i k) , 

- eine fiinfte Anweisung 506, in der der dritten Variable i 
der Wert der zweiten Variable k mit negativem Vorzeichen 
zugeordnet wird (i:=-k), 

- eine sechste Anweisung 507, in der die dritte Variable i 
20 in beliebiger Weise weiterverarbeitet wird. 

Zu dem in Fig. 5a dargestellten Kontrollf lufigraphen 501 ergibt 
sich fur das Auswahlelement der in Fig. 5b dargestellte Slice 
520. 

25 

Durchgezogene Kanten in dem Slice 520 stellen eine Datenab- 
hangigkeit der unterschiedlichen Anweisungen voneinander dar. 

Mit gestrichelten Kanten werden Kontrollabhangigkeiten der 
30 entsprechenden Anweisungen voneinander angegeben. 

Fur die beiden Kantentypen gelten die folgenden Def initionen: 

- gestrichelte Kanten, im weiteren als Kontrollkanten be- 
zeichnet, sind von Anweisungen, die eine pradikative Refe- 

35 renz enthalten (Ausf al Ikons trukte, Schleif ensteuerung) , 

auf die unmittelbar kontrollierten Anweisungen gerichtet, 
d.h. auf jene Anweisungen, die nur ausgefiihrt werden, wenn 
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das Pradikat einen bestimmten Wert hat. Kontrollkanten 
werden nur zwischen der kontrollierenden Anweisung und un- 
mittelbar eingeschachtelten Anweisungen gezogen. 1st in 
einem kontrollierten Block eine weitere Kontrollebene ein- 
geschachtelt, so werden keine Kontrollkanten gezogen, die 
mehr als eine Ebene tiberstreichen . Da eine Kontrollbezie- 
hung transitiv ist, kann diese mittelbare Kontrolle aus 
dem Slice durch Ausnutzung der Transitivitat geschlossen 
werden . 

- durchgezogene Kanten, im weiteren als Datenf lufikanten be- 
zeichnet, sind von Anweisungen, in denen eine Variable de- 
finiert wird, auf Anweisungen gerichtet, in denen diese 
Variable referenziert wird. Die betrachtete Variable darf 
zwischen der Definition und der Referenz nicht erneut de- 
finiert werden. Man bezeichnet dies als def initionsf reien 
Pfad bezuglich der betrachteten Variablen. 

Der Slice wird ermittelt, indem ausgehend von der Anweisung 
mit der betrachteten Variablen, fur die das unerwunschte Er- 
eignis vorgegeben wird, der Kontrollf luflgraph gegen die Kan- 
tenrichtung nach Definition der betrachteten Variablen durch- 
sucht wird. Existieren zu der Definition berechnende Referen- 
zen, so wird das Verfahren rekursiv fortgesetzt, bis keine 
zusatzlichen Knoten mehr gefunden werden. Die auf diese Weise 
gefundenen Abhangigkeiten zwischen Anweisungen sind Datenab- 
hangigkeiten. Befindet sich ein betrachteter Knoten in einem 
Block, dessen Ausfuhrung von einer Entscheidung direkt ge- 
steuert wird, so stellt dies eine Kontrollabhangigkeit dar. 
Fur die pradikativen Referenzen der in der Entscheidung be- 
teiligten Variablen werden Knoten mit entsprechenden Defini- 
tionen - also Datenf luflabhangigkeiten - rekursiv gesucht, die 
weitere Kontrollabhangigkeiten besitzen. 

Fig. 5b zeigt den zu dem Ausf allelement gehorenden Slice 520 
mit entsprechenden Kontrollkanten und Datenf luJikanten . 
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Fig. 5c zeigt den Fehlerbaum 540 fur das vorgegebene Ereignis 
"die dritte Variable i ist vor der 6. Anweisung fehlerhaft" 
541 . 



5 Folgende Ereignisse fuhren in INKLUSIV-ODER-Verkntipf ung 542 
zu dem fehlerhaften Ereignis 541: 

- eine "UND-Verkniipf ung 543 der Ereignisse, dafi die Entschei- 
dung gemafi der dritten Anweisung 504 wahr ist (Element 
544) und einem Ergebnis einer INKLUSIV-ODER-Verkntipf ung 

10 545 der Ereignisse, dafi die vierte Anweisung 505 fehler- 

haft ist (Element 546) und/oder die erste Variable j nach 
der ersten Anweisung 502 fehlerhaft ist (Element 547) ; 

- eine UND-Verknupf ung 550 der Ereignisse, dafi die Entschei 
dung gemafi der dritten Anweisung 504 falsch ist (Element 

15 551) mi t einem Ergebnis einer INKLUSIV-ODER-Verkntipf ung 

552 der Ereignisse, dafi die ftinfte Anweisung fehlerhaft 
ist (Element 553) und/oder dafi die erste Variable j nach 
der ersten Anweisung 502 fehlerhaft ist (Element 554); 

- eine INKLUSIV-ODER-Verkntipf ung 560 der Ereignisse : Die 
20 Entscheidung gemafi der dritten Anweisung 504 ist fehler- 
haft (Element 561) und/oder die zweite Variable k ist nach 
der zweiten Anweisung 503 fehlerhaft (Element 562) . 



2 5 Mehrfach-Auswahlelement 

Ein Mehrf ach-Auswahlelement als Ref erenzelement kann nach dem 
oben beschriebenen Schema durch Aufbrechen der Mehrfachaus- 
wahl in eine Kaskade von zweiseitigen Auswahlelementen, die 
30 gemafi dem oberen Vorgehen bearbeitet werden, behandelt wer- 
den, urn somit einen Fehlerbaum fur ein Mehrfach- 
Auswahlelement zu ermitteln. 




35 



Schleif e 
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Die Fig. 6a bis Fig. 6c zeigen fur das Ref er en z element einer 
Schleife einen Fehlerbaum 601 (vgl. Fig. 6a), den entsprechen- 
den Slice 620 (vgl. Fig. 6b) sowie den zugehorigen Fehlerbaum 
640 (vgl. Fig. 6c) . 

Der Kontrollf lufigraph 601 fur ein Schleif enelement weist fol- 
gende sieben Anweisungen auf: 

- Eine erste Anweisung 602, mit der einer erste Variable i 
der Wert 0 zugeordnet wird (i := 0), 

- eine zweite Anweisung 603, mit der einer zweiten Variable 
j ein Wert frei zugeordnet wird (j := ...), 

- eine dritte Anweisung 604, durch die einer dritten Varia- 
ble k ein weiterer Wert frei vorgegeben wird (k := ...), 

- eine vierte Anweisung 605, die als Schleif enanweisung eine 
Bedingung angibt, daB eine funfte Anweisung sowie eine 
sechste Anweisung solange durchgeftihrt werden, solange der 
Wert der zweiten Variablen j > 0 ist (WHILE j > 0 DO) , 

- eine funfte Anweisung 606, in der der ersten Variable i 
ein Wert zugeordnet wird, der sich ergibt aus der Summe 
des bisherigen Werts der ersten Variable sowie dem Produkt 
aus der zweiten Variable und der dritten Variable 

(i := i + k * j) , 

- eine sechste Anweisung 607, durch die der zweiten Variable 
j ein Wert zugewiesen wird, der sich ergibt durch Vermin- 
derung des ursprunglichen Werts der zweiten Variable j urn 
den Wert 1 { j := j - 1) , 

- eine siebte Anweisung 608, in der die erste Variable i in 
vorgebbarer Weise weiterbearbeitet wird (... := i ...). 

Fig. 6b zeigt den entsprechenden Slice 620 zu dem in Fig. 6a 
dargestellten Kontrollf luiigraphen 601 mit zugehorigen Kon- 
trollf luftkanten und Datenf lufikanten . 

Der in Fig. 6c dargestellte Fehlerbaum 640 wird gebildet fur 
das vorgegebene Ereignis 641, daii die "erste Variable i vor 
der siebten Anweisung fehlerhaft" ist. 
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Der Fehlerbaum 640 ergibt sich durch INKLUSIV-ODER- 
Verkniipfung 642 folgender vier Ereignisse: 

- Ein erstes Ereignis 643, das beschreibt, dafi die erste Va 
riable i nach der ersten Anweisung 602 fehlerhaft ist, 

5 - eine UND-Verkniipf ung 644 aus den Ereignissen, dafi der 

Schleif enrumpf der Schleife mindestens zweimal durchlaufe 
worden ist (Element 645) und dem Ereignis, dafi die sechst 
Anweisung 607 fehlerhaft ist (646), 

- eine UND-Verkniipf ung 650 des Ereignisses, dafi der Schlei- 
10 f enrumpf mindestens einmal ausgefiihrt wurde (Element 651) 

und einer INKLUSIV-ODER-Verknupf ung 652 folgende vier Er- 
eignisse : 

a) die fiinfte Anweisung 606 ist fehlerhaft (Element 653) , 

b) die erste Variable i ist nach der ersten Anweisung feh 
15 lerhaft (Element 654) 

c) die zweite Variable j ist nach der zweiten Anweisung 
fehlerhaft (Element 655), 

d) die dritte Variable k ist nach der dritten Anweisung 
fehlerhaft (Element 656) , 

2 0 - eine INKLUSIV-ODER-Verknupf ung 660 folgender drei Ereig- 
nisse : 

e) die Entscheidung gemafi der vierten Anweisung 605 ist 
fehlerhaft (Element 661), 

f) die zweite Variable j ist nach der zweiten Anweisung 
25 603 fehlerhaft (Element 662), 

g) eine UND-Verkniipf ung 663 der Ereignisse, dafi die sech- 
ste Anweisung fehlerhaft ist (Element 664) mit dem Er- 
eignis, dafi der Schleif enrumpf mindestens einmal durch- 
laufen worden ist (Element 665) . 



Die oben beschriebenen Fehlerbaume, die den einzelnen Refe- 
renzelementen zugeordnet sind, sind in dem Speicher 102 als 
Fehlerbaume 115 gespeichert. 
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Fig. 7 zeigt einen Kontrollf lufigraphen 700 zu folgendem Compu- 
terprogramm: 

input (n) ; 
input (a) ; 
max:=0; 
sum: =0; 
i :=2; 

WHILE i =n DO 

IF max < a[i] 

THEN max:= a[i] 

sum: = sum + a[i] 

i:= i + 1 
avr:= sum/n; 
output (max) ; 
output (avr) ; 

Zu dem in Fig. 7 dargestellten Kontrollf luBgraphen 700 mit 13 
Anweisungen (Bezugszeichen 1, 2, 3, . .., 13) zeigt Fig. 8a den 
zugehorigen Slice 800 zu der Variablen max und Fig. 8b den zu- 
gehorigen Slice 810 zu der Variablen avr. Die Numerierung der 
einzelnen Anweisungen in den Slices entspricht der Numerie- 
rung der einzelnen Anweisungen in dem Kontrollf lufigraphen 700 
aus Fig. 7. 

Fig. 9 zeigt den Slice 900 fur die Variable avr, wie er in 
Fig. 8b dargestellt ist. Die Struktur des in dem oben darge- 
stellten Programm enthaltenen Schleif enelements ist durch 
Fettdruck hervorgehoben . Diese Struktur entspricht dem in 
Fig. 6b dargestellten Slice fur ein Schleif enelement . 

Ein Gesamtfehlerbaum 1000 fur das oben dargestellte Computer- 
programm ist in Fig. 10 dargestellt. Der Gesamtfehlerbaum fur 
das Computerprogramm wird durch Instantiieren des entspre- 
chenden Fehlerbaums, der dem Ref erenzelement zugeordnet ist, 
das dem ausgewahlten Programmelement entspricht, erzeugt. 
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Durch rtickwarts gerichtetes Vorgehen ausgehend von dem vorge 
gebenen unerwunschten Ereignis wird somit unter Verwendung 
der den Ref erenzelementen zugeordneten Fehlerbaume der Ge- 
samtf ehlerbaum 1000 ermittelt. 

5 

In Fig. 10 ist der Fehlerbaum 1000 zu dem Ereignis, dafi "die 
Variable avr vor der dreizehnten Anweisung fehlerhaft" ist 
(Element 1001) . Die Variable avr kann vor der dreizehnten An 
weisung 13 fehlerhaft sein aufgrund mindestens eines der fol 
10 genden drei Ereignisse, wie dies auch in dem in Fig. 9 darge- 
stellten Slice 900 fur die Variable avr dargestellt ist 
(INKLUSIV-ODER-Verknupfung 1002) : 

- Eine Eingangsvariable n ist nach der ersten Anweisung 1 
fehlerhaft (Element 1003), 

15 - die elf te -Anweisung 11 ist fehlerhaft (Element 1004), 

- der Wert der Variablen sum vor der elften Anweisung 11 ist 
fehlerhaft (Element 1005) . 

Die Variable sum ist vor der .elften Anweisung 11 fehlerhaft 
20 (Element 1005) , wenn mindestens eines der folgenden Ereignis- 
se erfullt ist ( INKLUSIV-ODER-Verkniipf ung 1006): 

- Die Variable sum ist nach der vierten Anweisung 4 fehler- 
haft (Element 1007), 

- eine UND-Verkntipfung 1008 des Ereignisses, daii mindestens 
25 zweimal der Schleif enrumpf ausgefiihrt worden ist (Element 

1009) mit dem Ereignis, dafi die zehnte Anweisung 10 feh- 
lerhaft ist (Element 1010), 

- eine UND-Verkntipfung 1011 des Ereignisses, dafi mindestens 
einmal der Schleif enrumpf ausgefuhrt worden ist (Element 

30 1012) mit dem Ergebnis einer INKLUSIV-ODER-Verknupfung 

1013 folgender vier Ereignisse: 

a) die neunte Anweisung 9 ist fehlerhaft (Element 1014), 

b) die Variable sum ist nach der vierten Anweisung 4 feh- 
lerhaft (Element 1015), 

35 c) die Variable i ist nach der funften Anweisung 5 fehler- 

haft (Element 1016) , 
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d) die Variable a ist nach der zweiten Anweisung 2 fehler- 
haft (Element 1017) , 

- eine INKLUSIV-ODER-Verknupfung 1018 folgender Ereignisse: 

e) die Entscheidung gemafi der sechsten Anweisung ist feh- 
lerhaft (Element 1019), 

f ) die Variable i ist nach der fiinften Anweisung fehler- 
haft (Element 1020), 

g) die Variable n ist nach der ersten Anweisung fehlerhaft 
(Element 1021) , 

h) eine UND-Verknupf ung 1022 des Ereignisses, dafl die 10. 
Anweisung fehlerhaft ist (Element 1023) mit dem Ereig- 
nis, dafi mindestens einmal der Schleif enrumpf ausge- 
fuhrt worden ist (Element 1024) . 

Der Fehlerbaum 1000 aus Fig. 10 wird zur anschaulicheren Dar- 
stellung dahingehend verandert, dafl Ereignisse, die in dem 
Fehlerbaum 1000 mehrfach dargestellt sind, zu einem Knoten 
eines Ursache-Wirkungs-Graphen 1100 (vgl. Fig. 11) zusammenge- 
faftt werden. 

Auf den in Fig. 10 dargestellten Fehlerbaum 1000 wird ein Feh- 
lerbaumanalyseverfahren, wie in [5] beschrieben, angewendet, 
wodurch eine Analyse des Compute rprogramms hinsichtlich eines 
vorgegebenen unerwunschten Ereignisses analysiert wird. 

Im weiteren werden Alternativen und weitere Anwendungsmog- 
lichkeiten des oben beschriebenen Ausf uhrungsbeispiels darge- 
stellt. 

Der mit dem oben beschriebenen Verfahren erzeugte Gesamtfeh- 
lerbaum kann zu verschiedenen Zwecken eingesetzt werden: 

- Beschreibung der Fehlerer zeugung bzw. Fehlverhaltenspropa- 
gation durch einen Teil eines Computerprogramms im Rahmen 
einer Sicherheitsanalyse oder eine Zuverlassigkeitsanalyse 
des Computerprogramms , 

- Analyse von Sof twaref ehlermechanismen, beispielsweise im 
Rahmen einer Testf allgenerierung. 
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Im weiteren ist ein Computerprogramm in der Programmierspra- 
che C++ angegeben, mit dem das Verfahren gemafi dem Ausfuh- 
rungsbeispiel realisiert ist: 



iinclude "AS_GraphKante . h" 
□ 

iinclude <iostream> 
□ 

□ 

ostream& operator « ( ostreams os, const GraphKanteC & Kante) { 

□ 

os « Kante . KantenTyp; 

□ 

return os; 

□ 

} 

////////////////////////////////////////////////////////////////////////////////////// 

// Klasse zur Erzeugung von Kanten im Slice-Graph. 

// Es gibt zwei Art en von Kanten : 

// 1. KontrollfluS-Kanten KFK 

// 2. Datenflufl-Kanten DFK 

// Auch diese Klasse erfQllt die nice-Anf orderungen filr die STL. 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-09-12 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 
iifndef _GraphNodeHeader 
idef ine _GraphNodeHeader 

iinclude <iostream> 
^include "KFGListNode . h" 

using namespace std; 

class GraphNodeC : public KFGListNodeC { 
public: 

//GraphNodeC ( ) {}; 

friend ostreamS operator << ( ostreami os, const GraphNodeC& Node); 

}; 

#endif 

////////////////////////////////////////////////////////////////////////////////////// 
□ 

// Klasse zur Erstellung eines Slice. Dieser Klasse wird ein leeres Objekt 
□ 

// der Klasse Graph vererbt. 
□ 

// Die Ecken des Graphen/Slice haben dieselbe Struktur wie die Listen im KFG. 
// Die Kanten sind von Typ -KantenTypT; eine Klasse GraphKanteC lieB sich aus 
// fQr mich unersichtlichen GrUnden nicht in die Klasse Graph einbinden. 
// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-09-12 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

iifdef _SliceHeader 

#else 

idefine _SliceHeader 

iinclude "graph. h" 
iinclude "AS_GraphKante . h" 
//iinclude "AS_GraphNode . h" 
iinclude "KFGListNode . h" 
iinclude "KFGList.h" 



//using namespace std; 

//typedef enura { DFK, KFK} KantenTypT; 
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class SliceC : public Graph<KFGListNodeC, GraphKanteO { 
public : 

5 

SliceCO {}; 

void sliceForLoops (KFGListC & L2, KFGListC: : iterator LOOPIT); 
10 KFGListC: : iterator def ineVariableToSlice ( KFGListC & L2 } ; 

//void buildTestGraph (KFGListC & L2 ) ; 

void f indAl IDef s f KFGListC & LI, KFGListC: : iterator ITER}; 



15 



c 



30 



35 



40 



50 



KFGListC: : iterator findUpper Limit (KFGListC 6 LI, KFGListC :: iterator ITER, 
KFGP_UseListC: : iterator PUSEIT) ; 



KFGListC: : iterator f indLowerLimi t { KFGListC & LI, KFGListC :: iterator ITER, 
2 0 KFGListC: : iterator UPPERLIMIT) ; 



KFGListC: : iterator find Lower Limit FromCUse ( KFGListC & LI, KFGListC: : iterator ITER 
KFGListC: : iterator UPPERLIMIT); 

KFGListC: : iterator f indUpperLimi tFromCUse ( KFGListC & LI, KFGListC: : iterator ITER 
KFGUseListC: : iterator USEIT) ; 

int checkForNodes { int NodeNumber); 

void KFKPUseToCUse (KFGListC: : iterator PUSEIT, int Schlei f enEnde } ; 
void findDefToCUse (KFGListC & LI, KFGListC :: iterator ITER); 
void def In Loop ( KFGListC & LI, KFGListC :: iterator ITER); 
void startBuildSlice ( KFGListC & LI); 
void sliceAusgeben ( ) ; 



#endif 



4 5 ///////////////////////////////////////////////////////////////////////////// 
// Mit einigen Anderungen Qbernommen aus "Die C++ Standard Template Library". 

// Template-Klasse Graph zur Erstellung von gerichteten oder ungerichteten 
// Graphen. Der Graph besteht aus einem Vektor E fUr alle Ecken. Jedes 
// Vektorelement besteht wiederum aus einem Paar: der Ecke und der Menge der 
// Nachfolger. 

// Die Menge der Nachfolger wird durch den STL Datentyp map dargestellt; der 
// SchlOssel zu einem Kantentyp/Kantenwert ist die Nummer einer nachf olqenden 
// Ecke. 
// 

///////////////////////////////////////////////////////////////////////////// 

#ifndef _graphHeader 

#define _graphHeader 

#include <assert.h> 
60 # include <map> 

#include <stack> 

^include <vector> 

^include "checkvec.h" 

Sinclude <iostream> 
65 ^include "AS_GraphNode . h" 

using namespace std; 

// Leere Parameterklasse mit Mindestsatz von Operationen, 
// falls keine Kantengewichte benotigt werden. 
7 0 struct Empty 
{ 

public: 

Empty (int=0) {} 
^ bool operator< { const Empty& ) const { return true;} 

// Empty-Operationen, damit Ein-Ausgabe allgemein formuliert 
// werden kann 

//ostream& operator<< ( ostreamS os, const Empty& ) { return os; } 
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//istreami operator» ( is t reams is, Emptyfi ) { return is; } 

template<class Eckentyp, class Kantentyp> 
5 class Graph 

{ 

public : 

typedef map<int, Kantentyp, less<int> > Nachfolger; 
typedef pai r<Eckentyp, Nachfolger> Ecke; 

1 0 typedef checkedVector<Ecke> Graphtyp; 

//typedef vector<Ecke> Graphtyp; 
typedef Graphtyp :: iterator iterator; 
typedef Graphtyp :: const_iterator const_iterator ; 

15 Graphfbool g, ostreami os = cerr) 

: gerichtet (g) , pOut(&os) {} 

Graph () {} 

2 0 size_t sized const { return C.sizef); } 

bool istGerichtet ( ) const { return gerichtet;} 
iterator begin{) { return C.beginU;} 

iterator end ( ) { return C.end();> 

Ecke& operator []( int i) { return Cfi];} 

25 

size_t AnzahlKanten ( ) ; 

int insert (const Eckentyp& e); 

void insert (const Eckentyp& el, const Eckentypfi e2, 
const Kantentyp& Wert) ; 
30 void verbindeEcken ( int el, int e2, // Uber Eckennummern 

const Kantentyp& Wert) ; 
void setgerichtet (bool wert); // neue Methode filr gerichtete/ungerichtete Gra- 

phen, 

// die aber nicht ver- 

3 5 wendet wi rd . 

void check ( ostream& — cout); 

void ZyklusUndZusammenhang (ostream& = cout); 

private : 

4 0 bool gerichtet; 

Graphtyp C; // Container 

ostream* pOut ; 



45 



50 



60 



//Funktion, die Uberprtlft, ob es sich um einen gerichteten oder ungerichteten 
//Graphen handelt, und die Anzahl der Ecken und Kanten ausgibt. 
template<class Eckentyp, class Kantentyp> 
void Graph<Eckentyp, Kantentyp> : : check ( ost ream& os ) 



os « "Der Graph ist "; 
//if ( ! istGerichtet ( ) ) 
// os « "un"; 
os « "gerichtet und hat " 
55 « size{ ) « " Knoten und " 

« AnzahlKanten ( ) « " Kanten\n"; 
//ZyklusUndZusammenhang (os) ; 



//Methode, die einen Wert setzt, ob der Graph gerichtet oder ungerichtet ist. 

t empla t e<cl ass Eckentyp, class Kantentyp> 

void Graph<Eckentyp, Kantentyp>: : setgerichtet (bool wert) 



65 gerichtet = wert; 



//Funktion berechnet die Anzahl der Kanten in Graph 
7 0 template<class Eckentyp, class Kantentyp> 

size_t Graph<Eckentyp, Kantentyp> : : AnzahlKanten ( ) 

{ 

slze_t Kanten = 0; 
iterator temp = begin(}; 
7 5 while ( temp ! = end ( ) ) 

Kanten += ( *temp++ ). second . si ze () ; 
//if ( ! gerichtet ) 
// Kanten /= 2; 



GR 99 P 1974 



23 

return Kant en; 

} 



//EinfUgen einer Ecke in den Graphen, falls ciiese noch nicht vorhanden ist. 
template<class Eckentyp, class Kantentyp> 

int Graph<Eckentyp, Kantentyp>: : insert ( const Eckentyp& e) 

{ 

for (int i = 0; i < size(); ++i) 
if {e == C(i] . first) 
return i; 

// falls nicht gefunden, einfuegen: 
C.push_back (Ecke ( e, Nachf olger ( } ) ) ; 
return size ( ) -1 ; 



//EinfQgen einer Kante in den Graphen, indent zuerst die Ecken eingefOgt werden. 
template<class Eckentyp, class Kantentyp> 

void Graph<Eckentyp, Kantentyp> :: insert ( const Eckentypfi el, 

const Eckentypfi e2, 
const KantentypS Wert) 

{ 

int posl = insert(el); 
int pos2 = insert (e2); 
verbindeEcken (posl , pos2, Wert); 



//Verbinden der beiden neu eingefUgten Ecken durch eine Kante. 
template<class Eckentyp, class Kantentyp> 
void Graph<Eckentyp, Kantentyp> : : verbindeEcken ( 

int posl, int pos2, const Kantentypfi Wert) 

{ 

(C[posl ]. second) {pos2 ] = Wert; 

//i f ( ! gerichtet ) // automatisch auch Gegenr ichtung eintragen 
// (C[pos2] . second) {posl ] = Wert; 



/* ZyklusUndZusammenhang ( ) arbeitet mit der Tiefensuche. 

Im Gegensatz zu CLR S. 478 wurde nicht mit der Rekursion 
gearbeitet, weil bei dieser Stack-Overflow bei grofien Graphen 
(zB. MILES.DAT bei mehr als 40 Knoten) auftrat. 
Die Nachbildung der Rekursion durch eigenen Stack 
ermtiglicht die Verarbeitung der gesamten Datei 

MILES . DAT (128 Knoten). Die Stacktiefe entspricht der Kantenanzahl 
+ 1 bei ungerichteten Graphen. 

*/ 

template<class Eckentyp, class Kantentyp> 

void Graph<Eckentyp, Kantentyp> : : ZyklusUndZusammenhang ( ostream& os ) 

int Zyklen = 0; 

int Komponentenanzahl = 0; 

stack<int, vector<int> > EckenStack; // zu besuchende Ecken 

// alien Ecken den Zustand nichtBesucht zuordnen 
enum EckStatus {nichtBesucht, besucht, bearbeitet}; 
vector<EckStatus> Eckenzustand ( size ( ) , nichtBesucht); 

// alle Ecken besuchen 

fortint i = 0; i < size(); ++i ) 

if (Eckenzustand [i ] == nichtBesucht) 

{ 

Komponentenanzahl ++; 

// auf dem Stack zwecks Bearbeitung ablegen 
EckenStack . push ( i ) ; 

// Stack abarbeiten 

while ( ! EckenStack . empty ( ) ) 

{ 

int dieEcke = EckenStack . top () ; 
EckenStack. pop ( ) ; 

i f ( Eckenzustand [dieEcke] == besucht) 

Eckenzustand {dieEcke] = bearbeitet; 
else 
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i f { Eckenzustand [dieEcke] == nichtBesucht } 
{ 

Eckenzustand (dieEcke; = besucht; 
// neue Ecke, fUr bea rbei tet-Kennung vormerken 
5 EckenStack .push (dieEcke ) ; 

// Nachfolger vormerken: 

Graph<Eckentyp, Kantentyp>: rNachfolger: : iterator 
start = operator [ ] (dieEcke ) . second -begin ( ) , 
10 ende - operator [] (dieEcke ). second . end () ; 

- while(start != ende) 

{ 

int Nachf = ( *start ). first ; 
if (Eckenzustand [Nachf] == besucht) 
15 { 

++Zyklen; // hier war schon jemand! 
(*pOut) « "mindestens Ecke " 
« operator [] (Nachf ). fi rst 
« " ist in einem Zyklus\n M ; 

20 } 

if (Eckenzustand [Nachf ] == nichtBesucht) 

EckenStack . push (Nachf ) ; 
++start; 

25 } } 

} // Stack Empty? 
} // fort) ... i f ( Eckenzustand .. . 

if (gerichtet ) 
3 0 { if (Komponentenanzahl == 1) 

os « "Der Graph ist stark zusammenh„ngend.\n M ; 
else 

os « "Der Graph ist nicht oder schwach " 
" zusammenh„ngend . \n" ; 

35 } 

else 

os « "Der Graph hat M 

« Komponentenanzahl 
<< " Komponente ( n ) . " << endl; 



40 



45 



65 



70 



os « "Der Graph hat "; 
if(Zyklen == 0) 

os « "keine " ; 
os « "Zyklen." « endl; 



//Ausgabe des Graphen. 

template<class Eckentyp, class Kantentyp> 
50 ostream& operator<< ( ost reamfi os, 

Graph<Eckentyp, Kantentyp>& G) 

{ 

of stream Ziel ( "FaultTree . uwg" ) ; 
ostream_iterator<uwgknotenC> POSIT (Ziel); 
55 ostream_iterator<uwgknotenC> POSIT2 ( Ziel ) ; 

// Anzeige der Ecken mit Nachfolgern 

Ziel « "%%UWG" « endl « "\"V0 . 1\ " -\ " Fehlerbaum\ " -\ "A. Steinhorst\ " " « endl « 
"%%BEGIN" « endl; 

forlint i = 0; i < G.size( ) ; + + i ) 

60 { 

POSIT++ = G[i]. first; 
/*os « G[i]. first « " <"; 
Graph<Eckentyp, Kantentyp> : :Nachfolger: : iterator 
startN - G[ i ]. second . begin () , 
endeN ~ G [ i ]. second . end () ; 
while(startN != endeN) 
{ 

os << G[ (*startN) . first] . first « 1 ' // Ec:<e 

« (*startN> .second « * '; // Kantenwert 
*POSIT2++ = G( (*startN) . first] . first; 
/ /*KANTEIT++ = (*startN) .second; 

++startN; 

} 

os « ">\n";V 
75 *POSIT + +; 

} 

for(int u = 0; u < G.size(); ++u) { 

Graph<Eckentyp, Kantentyp> : :Nachfolger: riterator 
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startN - G[ u] . second. begin () , 

endeN = G[ uj . second . end () ; 
while (startN != endeN) { 

Ziel « "%%EDGE : " « G[u] . fi rst . getGatterldent ( ) « 

« G[ (*startN) . first] . first. getGatterldent ( ) « V0; M « endl; 

++startN; 

} 

} 

Ziel « "%%PROBSLIST" « endl « " %%END" « endl; 
return os; 

i 

#endif 

ffifdef _KFGDefHeader 
□ 

#else 
□ 

ffdefine _KFGDef Header 
□ 

□ 

#include <string> 
D 

^include <iostream> 
□ 

□ 

using namespace std; 
□ 



□ 
Q 
□ 
0 
D 
□ 
□ 



typedef char StringT [256]; 

class KFGDefC ,{ 
private : 

StringT Def; 
int ScopeLevelD; 

public : 

KFGDefC () { strcpy (Def, " — unknown — " ) 

ScopeLevelD =0; }; 

KFGDefC(char _Def [), int _ScopeLevelD) 

{ strcpy (Def, _Def); 
ScopeLevelD = 

_ScopeLevelD; } ; 

void setDef (char _Def {]) { strcpy (Def, _Def ) ; }; 

char* getDefO { return Def; }; 

int getScopeLevelD( ) { return ScopeLevelD; }; 

bool operator == (const KFGDef C& other) const 
other. Def) == 0) 

LevelD == other . ScopeLevelD) ) ; }; 

bool operator != (const KFGDef C& other) const 

other) ; } ; 

bool operator < (const KFGDef C& other) const 
other. Def) < 0) ; } ; 

bool operator > (const KFGDef C& other} const 



{ return ( ( st rcmp ( Def , 

& (Scope- 

{ return ! ( +this == 

{ return (strcmp(Def, 
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{ return { strcmp ( Def , 

other . Def) > 0 } ; } ; 

friend ostreamfi operator « ( ostreami os, const KFGDef C& Node); 

}; 

#endif 

////////////////////////////////////////////////////////////////////////////////////// 
□ 

// Klasse fur Hilfsliste, um daraus einen KFG zu erstellen. 
// Diese Klasse erfOllt die ni ce-Anf orderungen fur die STL; 
// d.h. ftlr eine Klasse T gilt 

// 0. Sie untersttttzt den Copy-Konst ruktor T {const T& ) , 
// 1. den Zuweisungsoperator T& operator^ (const T&), 

// 2. den Vergleichsoperator bool operator== (const T, Sconst T& ) und 
// 3. den Ungleichoperator != 
// in einer Weise so daS gilt: 
// (a) { TRUE } T a (b ) {a b} 
// (b) { TRUE } a = b {a == b} 
// (c) { a — a} 
// (d) { a =*« b b == a } 

// (e) { (a == b) AND { b == c ) ==> (a == c) } 
// (f) { a != b <==> NOT ( a== b) } ; 

// 

// AuBerdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

// (g) { a == b == > a. getName () == b . getName ( ) } 

// 

// (C) 1997 Siemens AG 
// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

#ifdef _KFGLineNodeHeader 

lelse 

#define _KFGLineNodeHeader 

#include <string> 
linclude <iostream> 

using namespace std; 

typedef char StringL [1000]; 

class KFGLineNodeC { 
private : 

StringL Name; 
int LineNumber; 

public: 

KFGLineNodeC ( ) { strcpy (Name, " — unknown — 

LineNumber = 0 



"); 

}; 

0; } , 



KFGLineNodeC ( char _Name []) { strcpy (Name, _Name ) ; 



KFGLineNodeC { char Name [], int LineNumber) 



_Name ) ; 

_LineNumber ; } ; 



LineNumber = 

{ strcpy (Name, 
LineNumber = 



void setName(char _Name [1) { strcpy (Name, _Name); }; 

char* getName () ( return Name; }; 

int getLineNumber ( ) { return LineNumber; }; 

bool operator == (const KFGLineNodeCS other) const 

{ return 

( ( st rcmp (Name, other. Name) == 0) 
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& (LineNumbe 

other . LineNumber )) ; }; 

bool operator != (const KFGLineNodeC& other) const 

{ return ! {* 

-= other ) ; } ; 

bool operator < (const KFGLineNodeCfi other J const 

{ return 

(strcmp (Name, other. Name) < 0); }; 

bool operator > (const KFGLineNodeCfi other) const 

{ return 

( strcmp (Name, other. Name) > 0); }; 

friend ostream& operator « ( ostream& os, const KFGLineNodeC& Node); 

}; 

#endif 

////////////////////////////////////////////////////////////////////////////////////// 

// Klasse fur die Liste, die den KFG darstellt. 

// Diese Klasse erfUllt die nice-Anforderungen fur die STL; 

// d.h. fQr eine Klasse T gilt 

// 0. Sie unterstQtzt den Copy-Konst ruktor T (const T& ) , 
// 1. den Zuweisungsoperator T& operator= (const T&), 

// 2. den Vergleichsoperator bool operator— {const T, &const T&) und 

// 3. den Ungleichoperator 

// in einer Weise so dafi gilt: 

// (a) { TRUE } T a(b) {a == b} 

// (b) { TRUE } a = b {a == b} 

// (c) { a == a} 

// (d) { a == b <==> b == a } 

// (e) { (a == b) AND { b == c ) ==> (a == c) } 
// (f) { a != b <==> NOT ( a== b) }; 

// 

// Aufierdem sind alle Funktionen, insbesondere getStatement equality preserving, d 

// (g) { a == b == > a. getStatement ( ) == b . getStatement ( ) } 

// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-09-01 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

ffifdef _KFGListHeader 

ffelse 

tfdefine KFGListHeader 



ffinclude <string> 
^include <iostream> 
#include <stdio.h> 
#include <list> 
#include <fstream> 
^include <iterator> 
#include "KFGListNode . h n 
#include "KFGTokenList . h" 
ffinclude "KFGProgList . h" 

using namespace std; 



class KFGListC : public list<KFGListNodeC> { 

int Anzahl_Defs, Anzahl_Uses, Anzahl_P_Uses , Anzahl_Deklarationen; 

int Schlei f enentscheidungen, Entscheidungen, Zaehlschleif enentscheidungen; 

int Anweisungen; 

public : 

KFGListC { ) {}; 

void TokenList2KFGList (KFGTokenListC & LI); 
void KnotenNummern ( ) ; 

void Knotenldentif izierer (KFGListC: : iterator KFG); 



void ListeAusgeben ( ) ; 
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void addLinelnToList ( ) ; 

void addLineToKFG{KFGProgListC & LP); 

int zaehleDeklarationen{KFGTokenListC & TL) ; 

void basisgroessenlnDatei ( ) ; 

} ; 

class KFGDef ListC : public list<KFGDefC> {}; 
class KFGUseListC : public list<KFGUseC> {}; 
class KFGP_UseListC : public list<KFGUseC> {}; 
#endif 



#include <string> 
□ 

#include <iostream> 
Hnclude <list> 
Jfinclude "KFGNode . h" 



using namespace std; 

typedef 1 ist<KFGNodeC> KFGListeT; 
extern void KFGListeAusgeben { KFGListeT ) ; 

////////////////////////////////////////////////////////////////////////////////////// 
□ 

// Klasse fur die Knoten im Kontrol 1 f lufigraph . 

// Diese Klasse erfullt die nice-Anf orderungen fUr die STL; 

// d.h. fur eine Klasse T gilt 

// 0. Sie unterstQtzt den Copy-Konstruktor T (const T&}, 
// 1. den Zuweisungsoperator T& operator^ (const T&), 

// 2. den Vergleichsoperator bool operator== (const T, &const T& } und 

// 3. den Ungleichoperator != 

// in einer Weise so dafi gilt: 

// (a) { TRUE } T a ( b } {a == b} 

// (b) { TRUE } a = b {a == b} 

// (c) { a == a} 

// (d) { a == b <==> b -= a } 

// (e) { (a == b) AND ( b == c ) ==> (a == c) } 
// (f) { a != b <==> NOT ( a— b) }; 

// 

// Aufierdem sind alle Funktionen, insbesondere getstatement equality preserving, d.h. 

// (g) { a == b == > a .getstatement ( ) == b. getstatement { ) } 

// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

ffifdef _KFGNodeListHeader 

#else 

^define _KFGNodeListHeader 

^include <string> 
ffinclude <iostream> 
iinclude <list> 
#include "KFGUse . h" 
^include "KFGDef. h" 



using namespace std; 

typedef char StringT [256]; 
typedef char CodeLineT [ 256 ] ; 
typedef enum 

{ NO, LC, BL, EL, I FC, BTh, ETh, BE1, EE1 , OP, DOWL, DOWLC, SWITCH, CASE, ENDCASE, BDEFA, EN DDE FA, RETURN, 
AK} KFGNodeTypeT; 

typedef enum {LOOF, THEN, ELSE, NONE } KnotenldentT; 

class KFGListNodeC { 
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protected: 
//private : 



static int DummyNodeNr; 
int NodeNr; 
int Level; 
int KnotenNr; 
int LineNr; 
StringT Statement; 
CodeLineT CodeLine; 
KFGNodeTypeT KFGNodeType ; 
KnotenldentT Knotenldent 



public : 



list<KFGUseC> Uses; 
list<KFGDefC> Defs; 
list<KFGUseC> P_Uses; 

KFGListNodeC ( ) 



NO; 

myNodeNr++ ; 



NONE; 

ne, " — unknown — "); }; 

KFGListNodeC { char _Statement [], KFGNodeTypeT _KFGNodeType ) 
ment, Statement); 



{ strcpy (Statement, "-- unknown 

Level = 0; 
KFGNodeType = 

NodeNr = Dura- 

KnotenNr = 0; 
Knotenldent = 

LineNr = 0; 
strcpy (CodeLi- 



{ strcpy (State- 



J<FGNodeType; 
myNodeNr++ ; 

NONE; 

ne, "--unknown — "}; }; 

KFGListNodeC {char _Statement [], KFGNodeTypeT 

ment, _Statement) ; 

_KFGNodeType; 
myNodeNr++ ; 

NONE; 

ne, " — unknown--"); }; 

KFGListNodeC (char _Statement [], KFGNodeTypeT 

_LineNr) 

ment, _Statement); 

_KFGNodeType; 
myNodeNr++; 

NONE; 
LineNr; 



Level - 0; 

KFGNodeType = 

NodeNr — Dum- 

KnotenNr = 0; 
Knotenldent = 

LineNr = 0; 
strcpy (CodeLi- 



_KFGNodeType, int _Level ) 

{ strcpy (State- 
Level = _Level ; 
KFGNodeType = 

NodeNr — Dum- 

KnotenNr « 0; 
Knotenldent = 

LineNr = 0; 
strcpy (CodeLi- 

JCFGNodeType, int _Level, int 
{ strcpy (State- 
Level = _Level; 
KFGNodeType = 

NodeNr = Dum- 

KnotenNr = 0; 
Knotenldent = 

LineNr = 
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strcpy (CodeLi 

ne, " — unknown--"); }; 

void setStatement ( char _Statement []) 

{ strcpy (State- 
ment, ^Statement); }; 

void setCodeLine ( char _CodeLine (]) 

{ strcpy {CodeLi 

ne, _CodeLine); }; 

void s e t KFGKno t enNurame r ( int _KnotenNr ) 

{ KnotenNr = 

_KnotenNr; } ; 

void setKnotenldent ( KnotenldentT _KnotenIdent ) 

{ Knotenldent = 

_KnotenIdent; } ; 

int getKnotenNummer ( ) { return KnotenNr; }; 

char* getStatement { ) { return Statement; }; 

char* getCodeLine ( ) { return CodeLine; } ; 

int getLevel ( ) { return Level; }; 

int getNodeNr{) { return NodeNr; }; 

int getLineNr() { return LineNr; }; 

KnotenldentT getKnotenldent { ) { return Knotenldent; }; 

KFGNodeTypeT getKFGNodeType ( ) { return KFGNodeType; }; 
bool operator«== { const *KFGListNodeC& other ) const 

{ return 

(( st rcmp ( Statement , other . Statement ) == 0) 

& (Level == 

other - Level ) 

, & (KFGNodeType 

== other .KFGNodeType) 

& (NodeNr == 

other .NodeNr ) ); }; 

bool operator != (const KFGListNodeC& other) const 

{ return ! ( * this 

== othe r ) ; } ; 

bool operator < (const KFGLxstNodeC& other) const 

{ return 

( st rcmp ( Statement, other . Statement ) < 0); }; 

bool operator > (const KFGListNodeC& other) const 

{ return 

( strcmp ( Statement , other . Statement ) > 0); }; 

friend ostream& operator « ( ostreami os, const KFGListNodeC& Node); 

}; 



ffendif 

/ /# include <string> 
//#include <iostream> 
//ffinclude "KFGList . h" 

//using namespace std; 



//class KFGListOpC : public KFGListeC { 
//public : 

// void KFGListOut (KFGListeT & L) 

// { 

// KFGListeT : : iterator I = L.beginO, 

// while (I != L. end( ) ) 
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// cout « *I++ « » 

// cout « " sized = n « L.sizet) « endl; 

// } 
//}; 



////////////////////////////////////////////////////////////////////////////////////// 
□ 

// Klasse fUr Hilfsliste, um daraus einen KFG zu erstellen. 
Q 

// Diese Klasse erfUllt die nice-Anf orderungen ftlr die STL; 
// d.h. fUr eine Klasse T gilt 

// 0. Sie unterstatzt den Copy-Konstruktor T (const T&), 
// 1. den Zuweisungsoperator T& operator= (const T& ) , 

// 2. den Vergleichsoperator bool operator== (const T, iconst T& ) und 

// 3. den Ungleichoperator != 

// in einer Weise so dafi gilt: 

// (a) { TRUE } T a(b) {a b} 

// (b) { TRUE } a = b {a b} 

// (c) { a == a} 

// (d) { a == b <==> b == a } 

// (e) { (a == b) AND ( b == c ) ==> (a == c) } 
// (f) { a != b <==> NOT ( a== b) }; 

// 

// AuBerdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

//(g) { a -= b == > a . getName ( ) == b. getName () } 

// 

// (C) 1997 Siemens AG 
// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

#ifdef _KFGNodeHeader 

#else 

#define _KFGNodeHeader 

^include <string> 
#include <iostream> 

using namespace std; 

typedef char StringT [256]; 

class KFGNodeC { 
private : 

StringT Name; 
int ScopeLevel; 

public : 

KFGNodeC ( ) { str cpy (Name, un- 

known — "J; ScopeLevel = 0; 

/* cout « "NodeC 

erzeugt" « endl ; +/}; 

KFGNodeC ( cha r _Name [] ) { strcpy (Name, _Name); 

ScopeLevel = 0; }; 

KFGNodeC ( char _Name [], int _ScopeLevel ) 

{ strcpy (Name, 
ScopeLevel = 

void setName(char _Name []) { strcpy (Name, _Name); }; 

char* getName () { ret urn Name; }; 

int getScopeLevel ( } { re turn ScopeLevel; }; 

bool operator == (const KFGNodeCS other) const 

, , { return 

{ ( strcmp (Name, other. Name) == 0) 

^, & (ScopeLevel 

== other . ScopeLevel )) ; }; 

bool operator != (const KFGNodeC& other) const 



_Name ) ; 
_ScopeLevel ; \ 



GR 99 P 1974 



32 

{ return ! ( *this 

== other) ; } ; 

bool operator < (const KFGNodeCi other) const 

{ return ( strcmp (Name , 

other. Name) < 0); }; 

bool operator > {const KFGNodeC& other) const 

{ return ( strcmp (Name, 

other .Name ) > 0) ; } ; 

friend ostream& operator « ( ostrearai os, const KFGNodeCS Node); 

}; 

#endif 

ffifdef _KFGNodelHeader 
□ 

#else 
□ 

////////////////////////////////////////////////////////////////////////////////////// 
// Klasse fur Hilfsliste, um daraus einen KFG zu erstellen. 
// Diese Klasse erfUllt die nice-Anf orderungen fUr die STL; 
// d.h. fur eine Klasse T gilt 

// 0- Sie unterstatzt den Copy-Konstruktor T (const T&), 
// 1. den Zuweisungsoperator T& operator^ (const T& ) , 

// 2. den Vergleichsoperator bool operator== (const T, &const T&) und 
// 3. den Ungleichoperator != 
// in einer Weise so daB gilt: 
// (a) { TRUE } T a(b) {a == b} 
// (b) { TRUE } a = b {a == b} 
// (c) { a == a} 
// (d) { a == b <==> b == a } 

// (e) { (a == b) AND ( b == c ) ==> (a == c) } 
// (f) { a != b <==> NOT ( a== b) } ; 

// 

// AuBerdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

// (g) { a == b == > a . getName ( ) == b. getName () } 

// 

// (C) 1997 Siemens AG 
// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

#ifdef JCFGNodelHeader 

#else 

(fdefine _KFGNodelHeader 

ff include <string> 
^include <iostream> 

using namespace std; 

typedef char StringT [256]; 

class KFGListNodeC { 
private : 

StringT Name; 
int ScopeLevel; 
list <KFGUseC> Uses; 
list <KFGDefC> Defs; 

public : 

KFGListNodeC ( ) { strcpy (Name, " — un- 

known — " ) ; ScopeLevel = 0; 

/* cout << "NodeC 

erzeugt" « endl ; */}; 

KFGListNodeC (char _Name [} ) { strcpy (Name, _Name); 

ScopeLevel =0; }; 

KFGListNodeC { char _Name [), int _ScopeLevel) 

{ strcpy (Name, 

Name ) ; 
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ScopeLevel = 

_ScopeLevel ; } ; 

void setName ( char _Name {]) { strcpy {Name, _Name); }; 

char* getNameO { return Name; }; 

int getScopeLevel ( > f return ScopeLevel; }; 

bool operator == (const KFGListNodeCfi other) const 

{ return 

( ( strcmp (Name, other. Name) == 0) 

& ( ScopeLevel 

== other . ScopeLevel )} ; }; 

bool operator != (const KFGListNodeC& other) const 

{ return ! ( *this 

== other ) ; } ; 

bool operator < (const KFGListNodeC& other) const 

{ return ( strcmp (Name, 

other .Name ) < 0 ) ; } ; 

bool operator > (const KFGListNodeCfi other) const 

{ return (strcmp (Name, 

other. Name) > 0); }; 

friend ostream& operator « ( ostreami os, const KFGListNodeC& Node); 

} * 

#endif 

ffifdef _KFGNodel Header 
□ 

#else 

a 

////////////////////////////////////////////////////////////////////////////////////// 

// Klasse far Hilfsliste, urn daraus einen KFG 2u erstellen. 
□ 

// Diese Klasse erfOllt die nice-Anforderungen fOr die STL; 
// d.h. far eine Klasse T gilt 

// 0. Sie unterstOtzt den Copy-Konst rukto r T (const T& ) , 
// 1. den Zuweisungsoperator T& operator= (const T& ) , 

// 2. den Vergleichsoperator bool operator— (const T, iconst T&) und 

// 3. den Ungleichoperator != 

// in einer Weise so daS gilt: 

// (a) { TRUE } T a(b) {a == b} 

// (b) { TRUE } a - b {a == b} 

// (c) { a == a} 

// (d) { a =- b <==> b == a } 

// (e) { (a == b) AND ( b == c ) ==> ( a == c ) } 
// (f) { a != b <==> NOT ( a== b) }; 

// 

// AuBerdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

// <g) { a == b > a. getName () == b. getName () } 

// 

// (C) 1997 Siemens AG 

// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

#ifdef _KFGNodelHeader 

#else 

#define _KFGNodelHeader 

^include <string> 
^include <iostream> 

using namespace std; 

typedef char StringT [256); 

class KFGListNodeC { 
private : 



StringT Name; 
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int ScopeLevel; 
list <KFGUseC> Uses; 
list <KFGDefC> Defs; 



public : 

KFGListNodeC ( ) { strcpy (Name, " — un- 

known — "}; ScopeLevel = 0; 



/* cout « "NodeC 



erzeugt" « endl ; */}; 



KFGListNodeC (char _Name [] ) { strcpy (Name, _Name ) ; 

ScopeLevel =0; } ; 

KFGListNodeC ( char _Name [], int ^ScopeLevel) 

{ strcpy (Name, 

_Name } ; 

ScopeLevel = 

_ScopeLevel; } ; 



void setNamefchar _Name []) { strcpy (Name, _Name ) ; }; 

char* getName ( ) { return Name; }; 

int getScopeLevel { ) { return ScopeLevel; }; 

bool operator == (const KFGListNodeCS other) const 

{ return 

( ( strcmp (Name , other. Name) — 0) 

& ( ScopeLevel 

— = other . ScopeLevel )) ; }; 



bool operator != (const KFGListNodeC& other) const 

{ return ! ( *this 

== other); }; 

bool operator < (const KFGListNodeC& other) const 

{ return ( strcmp (Name, 

other. Name) < 0); }; 

bool operator > ( const KFGLi st NodeC & other ) const 

{ return ( strcmp ( Name , 

other. Name) > 0); }; 

friend ostreami operator « ( ostreams os , const KFGLi stNodeC& Node); 

}; 

ffendif 

//Klasse fur eine Liste aus STL. KFGListeC erbt dabei alle Eigenscha f ten 
//von der mit STL erstellten Liste list<KFGNodeC> . 
ffifdef _KFGProgListHeader 
#else 

#define _KFGProgListHeader 

# include <string> 
#include <iostream> 
#include <stdio.h> 
#include <list> 
# include <f st ream> 
^include <iterator> 
^include "KFGLineNode . h" 

using namespace std; 

class KFGProgListC : public list<KFGLineNodeC> { 
public: 

KFGProgListC( ) .{..}.;■ 
//void KFGListeAusgeben ( ) ; 
//void KFGTokenListToKFGList (); 
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#endif 



//Klasse fUr eine Liste aus STL - KFGListeC erbt dabei alle Eigenscha f ten 
□ 

//von der mit STL erstellten Liste list<KFGNodeC> . 
□ 

ffifdef _KFGTokenListHeader 
□ 

ieise 

□ 

#define _KFGTokenListHeader 
□ 

□ 

□ 

ffinclude <string> 
□ 

ffinclude <iostream> 
□ 

^include <stdio.h> 
^include <list> 
^include <fstream> 
^include <iterator> 
# include "KFGTokenNode . h" 

using namespace std; 



class KFGTokenListC : public list<KFGTokenNodeC> { 
public : 

KFGTokenListC { ) {}; 

void KFGListeAusgeben { ) ; 

//void KFGTokenListToKFGList {>; 

}; 

#endif 



////////////////////////////////////////////////////////////////////////////////////// 
n 



// 

□ 

// 

□ 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 



Klasse fUr Hilfsliste, urn daraus einen KFG zu erstellen. 
Diese Klasse erfQllt die nice-Anf orderungen fOr die STL; 
d.h. far eine Klasse T gilt 

0. Sie unterstUtzt den Copy-Konst ruktor T (const T& ) , 

1. den Zuweisungsoperator T& operator= (const T&), 

2. den Vergleichsoperator bool operator== (const T, &const T& ) und 

3. den Ungleichoperator !- 
in einer Weise so daB gilt: 

(a) { TRUE } T a(b) {a b} 

(b) { TRUE } a = b (a == b} 

(c) { a == a} 

(d ) { a == b <==> b == a } 

(e) { (a == b) AND ( b == c ) ==> ( a == c ) } 

(f) { a != b <==> NOT ( a== b) }; 

Aufierdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

(g) { a == b == > a. getName () == b. getName () } 

(C) 1997 Siemens AG 

/////////////////////////////////////////////////////////////////////////////////// 
1997-08-25 Andreas Steinhorst 



ffifdef _KFGTokenNodeHeader 
Seise 

^define KFGTokenNodeHeader 
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#include <string> 
^include <iostream> 

using namespace std; 

typedef char StringT [256] ; 
typedef enura 

{ N, PL, IF, BT, ET, BE, EE, FOR, BF, EF, WHILE, BW, EW, SW, CA, ECA, BRK, RET, DEFA, EDEFA, DO, BDOW, DOWS,NL, DEF 
,BFUNC,EFUNC;TD,OUT, FOR_D, PF} TokenNodeTypeT ; 

class; KFGTokenNodeC { 
private : 

StringT Name; 

TokenNodeTypeT TokenNodeType; 
int ScopeLevel; 
int LineNumber; 

public : 

KFGTokenNodeC { ) { strcpy (Name, " — un- 



known — " ) ; 

N; 

} ; 

Name ) ; 



ScopeLevel = 0; 
TokenNodeType = 



LineNumber ~ 

KFGTokenNodeC (char _Name [], TokenNodeTypeT ^TokenNodeType } 

{ strcpy (Name, 



ScopeLevel = 0; 

TokenNodeType - 

_TokenNodeType; 

LineNumber = 

0;}; 

KFGTokenNodeC { char _Name {], int _ScopeLevel,' TokenNodeTypeT _TokenNodeType ) 

{ - strcpy ( Name, 

_Name ) ; 

ScopeLevel = 

_ScopeLevel ; 

TokenNodeType = 

_TokenNodeType ; 

LineNumber = 0; 

}; 

KFGTokenNodeC (char _Name [], int _ScopeLevel, TokenNodeTypeT _TokenNodeType, 
int LineNumber) 



{ strcpy (Name, 
ScopeLevel = 

TokenNodeType 
LineNumber = 



_Name J ; 
_ScopeLevel; 
_TokenNodeType; 
_LineNumber; }; 

void setName(char _Name []) { strcpy (Name, _Name ) ; }; 

char* getNameO { return Name; }; 

int getScopeLevel ( ) { return ScopeLevel; }; 

int getLineNumber ( ) { return LineNumber; }; 

TokenNodeTypeT getTokenNodeType ( ) { return TokenNodeType; }; 

bool operator == (const KFGTokenNodeC& other) const 

{ return 

( (strcmp (Name, other. Name) == 0) 

& (ScopeLevel 

— other . ScopeLevel ) 

& (TokenNode- 
Type ~ other .TokenNodeType) ) ; }; 

bool operator != (const KFGTokenNodeC& other) const 
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l return ! (*this 

== other) ; } ; 

bool operator < (const KFGTokenNodeC& other) const 

{ return 

( strcrap (Name, other. Name) < 0); }; 

bool operator > (const KFGTokenNodeC& other) const 

{ return 

( st rcmp (Name, other. Name) > 0); }; 

friend ostreams operator « { ostream& os, const KFGTokenNodeC& Node); 

}; 

ffendif 

ffifdef _KFGUseHeader 
□ 

Seise 
□ 

tfdefine _KFGUseHeader 
O 

□ 

^include <string> 
□ 

#include <iostream> 
□ 

□ 

using namespace std; 
D 



□ 
□ 

a 
□ 
□ 
□ 
□ 
□ 
□ 
□ 



typedef char StringT (256) ; 

class KFGUseC { 
private : 

StringT Use; 
int ScopeLevelU; 

public: 



KFGUseC () { strcpy (Use, "-- unknown --"); 

ScopeLevelU =0; }; 



KFGUseC(char _Use [], int _ScopeLevelU ) 
_ScopeLevelU; }; 



{ strcpy (Use, _Use); 
ScopeLevelU = 



void setUse(char _Use []) { strcpy (Use, _Use); } 

char* getUse() { return Use; } 

int getScopeLevelU ( ) { return ScopeLevelU; ) 

bool operator « (const KFGUseC& other) const 

{ return ( ( strcmp (Use, 

other. Use) ==0) 

& (Scope- 
LevelU =- other . ScopeLevelU )) ; }; 



other) ; } ; 



bool operator != (const KFGUseC& other) const 

{ return ! ( * this =* 
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bool operator < {const KFGUseC& other) const 

{ return IstrcmplUse 

other .Use) < 0) ; } ; 

bool operator > (const KFGUseC& other) const 

{ return ( strcmp {Use 

other .Use) > 0) ; } ; 

friend ostream& operator « ( ostreami os, const KFGUseC& Node); 



#endif 

#ifndef _uwggraphC 
□ 

#define _uwggraphC 
□ 

0 

jfinclude <Graph.h> 
□ 

^include "uwgknoten.h" 
□ 

#include "uwgkante.h" 
□ 

iinclude "AS_Slice.h" 
using namespace std; 

class uwggraphC : public Graph < uwgknotenC, uwgkanteC > { 
public : 

short int eingefaltet; 
uwggraphC ( ) { } ; 

SliceC; : iterator f indOutputNode ( SliceC & SI); 

SliceC: : iterator def inelterator (SliceC & SI, int SliceNr); 

void addFirstNodesToFT ( SliceC & SI, int KnotenNr, int Posl); 

SliceC :: iterator returnCondNode { SliceC & SI, int SliceNr); 

int checkUWGNode ( int SliceNr); 

void SliceAusgeben (SliceC & SI); 

void startBuildFT (SliceC & SI); 

void buildlnLoopTree (SliceC & SI, int Posl, SliceC :: iterator SLPUSE, SI: 
ceC :: iterator SLNODE); 

void buildIn_Dl_Part (SliceC & SI, int posOR_Dl, SliceC: : iterator SLPUSE, 
SliceC: : iterator SLNODE, int D2_RefNr); 

SliceC :: iterator f indOutmostPUse { SI iceC & SI, SliceC: : iterator SLPUSE); 

int checkPUsesl ( SliceC & SI, SliceC :: iterator SLPUSE, SI iceC :: iterator 

SLPUSEREF) ; 

int checkPUses2 (SliceC & SI, SliceC :: iterator SLPUSE, SliceC: : iterator 

SLPUSEREF) ; 

SliceC: : iterator f ind_Dl_Node { Si iceC & SI, SliceC: : iterator SLPUSE, Sli- 
ceC :: iterator SLNODE ); 

void addAUDlNodes (SliceC & SI, SliceC :: iterator SLNODE, int posGatter, j 

D2_RefNr ) ; 

SliceC: : iterator findLastPUse ( SliceC & SI, int SliceNr); 

SliceC: : iterator findLastPUse2 { SliceC & SI, int SliceNr, int RefNr); 
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void checkLoopOrCond (SliceC & SI, SliceC :: iterator SL1, SliceC: -'iterator 
SLORIG, int Posil); 

void buildIn_D2_Part (SliceC & SI, int posOR_D2, SliceC: : iterator SLI, Sli- 
ceC :: iterator SLPUSE, int KnotenNrD2); 

int findD2Node ( SliceC & SI, SliceC: : iterator PUSE); 

int buildlnlfTreetSliceC & SI, SliceC :: i terator SLIF, SliceC: : iterator 
SLORIG, int posl); 

SliceC: : iterator lookForNext PUse (SliceC & SI, SliceC: : iterator SNODE, Sli- 
ceC :: i terator SLPUSE); 

void build_IFKF_Part (SliceC & SI, int posKFOR, SliceC: : iterator SLPUSE); 

void build_Al_Part (SliceC & SI, int posIFDFOR, SliceC: : iterator SLIF, Sli- 
ceC: : iterator SLORIG); 

void buildD2_IFKF_Part (SliceC & SI, int posKFOR, Sli ceC: : iterator SLPUSE) ; 

void buildD2_Al_Part (SliceC & SI, int posIFDFOR, SliceC: : iterator SLIF, Sli 
ceC: : iterator SLNODE) ; 

int buildD2InIfTree{SliceC & SI, SliceC: : iterator SLIF, Si iceC :: iterator 
SLORIG, int posl ) ; 

void buildLoopKF_Part (SliceC & SI, int posAND_KF, int posLOOP KF, int posD2 
SliceC: : iterator SLOOP); ~ 

int buildIn_LoopKF_ANDPart (SliceC & SI, int posAND KF, SI iceC :: i terator 
SLPUSE); _ 

void buildIn_LoopKF_ORPart (SliceC & SI, int posAND KF, SliceC: : iterator SLI 
int KnotenNrD2); ~ 

}; 

#endif 

tfifndef _uwgkanteC 
ffdefine _uwgkanteC 

iinclude <iostream> 

using namespace std; 

class uwgkanteC { 

publ ic : 

short int eingefaltet; 
int Number; 

uwgkanteC ( ) { j . 

uwgkanteC(int _Number) { Number = _Number; }; 

bool operator == (const uwgkanteCS other) const 

w { return (Number 

== other . Number ) ; }; 

bool operator != (const uwgkanteC& other) const 

{ return ! (*this 

-- other ) ; } ; 

bool operator < ( const uwgkanteC& other ) const 

_ k, L > , {return (Number 

== other . Number ) ; }; 

bool operator > (const uwgkanteC& other) const 

_ kT . { return (Number 

== other . Number ) ; }; 

friend ostream& operator « ( ostreamS os, const uwgkanteCfi Node); 

} f 

ffendif 
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ffifndef _uwgknotenC 
□ 

#define jjwgknotenC 
□ 

□ 

# include <iostream> 

const int maxKnotentextLength=128; 
const int maxBemerkLength=1000; 
const int maxWahrVarLength=16; 

typedef struct- ww { 

short int Wert; 
struct ww *next; 
} TMCSWert; 

typedef struct el { 

struct ftgatter* unabElement; 
struct ww *next; 
struct el * next el ; 
} TMinSet; 

typedef enum {AND, OR, CAUSE, EFFECT, NOT } NodeldentT; 
using namespace std; 
class uwgknotenC { 
public : 

static int DummyNr; 
int Gatterldent; 
int outof; 
int CauseNr; 

char gattertext [maxKnotentextLength] ; 
char gatterbemerkung [maxBemerkLength] ; 
.-..double wahrsch; 

char, wahrvar [maxWahrVarLength] ; 
NodeldentT Nodeldent; 

uwgknotenC () { Nodeldent = EFFECT; 

CauseNr = 0; 
strcpy (gatter- 
text, "-- unknown — "); 

strcpy (gatter 

bemerkung, "--keine — "); 

Gatterldent = 

DummyNr++; }; 

uwgknotenC (NodeldentT _NodeIdent ) 

{ Nodeldent = 

_NodeIdent ; 

CauseNr - 0; 

strcpy (gattertext, " — unknown — " } ; 
strcpy (gatterbemerkung, " — keine — " ) ; 

Gatterldent = 

DummyNr++; }; 

uwgknotenC (NodeldentT _NodeIdent, int _CauseNr/*, char _gattertext [ ] */ ) 

{ Nodeldent = 

_NodeIdent; 

CauseNr = 

_CauseNr ; 

strcpy(gattertext, " — unknown — " ) ; 
strcpy(gatterbemerkung, " — keine--* 1 ) ; 
/* strcpy (gattertext, _gattertext) ; */ 

Gatterldent = 

DummyNr + + ; } ; 
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uwgknotenC (NodeldentT _NodeIdent, int _CauseNr, char _gattertext {] , char 
_gatterbemerkung [ ] ) 

{ Nodeldent = 

_NodeIdent; 

CauseNr = 

_CauseNr; 

strcpy (gattertext, M — unknown — "); 

strcpyfgattertext, _gattertext ) ; 

strcpy (gatterbemerkung, _gatterbemerkung } ; 

Gatterldent = 

DummyNr++ ; } ; 

uwgknotenC (NodeldentT _NodeIdent, int _CauseNr, char _gattertext [ ] ) 

{ Nodeldent = 

_NodeIdent ; 

CauseNr = 

_CauseNr; 

/*strcpy (gat- 

tertext, unknown --");*/ 

strcpy (gattertext, _gattertext) ; 
strcpy {gatterbemerkung, " — keine — " ) ; 

Gatterldent = 

DummyNr++ ; } ; 

uwgknotenC (NodeldentT _NodeIdent, char _gatt ertext [] , char 
_gatterbemerkung [ ] ) 



_NodeIdent; 

strcpy{gattertext, _gattertext) ; 

strcpy (gatterbemerkung, _gatterbemerkung ) ; 

DummyNr + + ; } ; 

uwgknotenC (NodeldentT _NodeIdent, char _gatt ertext [ ] ) 

_NodeIdent ; 

strcpy{ gattertext, _gattertext} ; 
strcpy (gatterbemerkung, " — keine — " ) ; 
DummyNr++; } ; 



{ Nodeldent = 
CauseNr = 0; 

Gatterldent = 

( Nodeldent - 
CauseNr = 0; 

Gatterldent = 



int getCauseNrO { return CauseNr; }; 

int getGatterldent ( ) { return Gatterldent; }; 

NodeldentT getNodeldent ( ) const { return Nodeldent; }; 

bool operator == (const uwgknotenC& other) const 
seNr == other .CauseNr) 
other . Nodeldent ) 

(strcmp(gattertext / other. gattertext) 0) 
dent == other . Gatterldent )*/) ; }; 

bool operator != (const uwgknotenC& other) const 
== other) ; } ; 

bool operator < (const uwgknotenC& other) const 
rldent < other - Gatterldent ) ; }; 

bool operator > (const uwgknotenC& other) const 



{ return ( (Cau- 
& (Nodeldent == 

/*& (Gatterl- 

{ return ! (*this 

{ return (Gatte- 
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rldent > other . Gatterldent ) ; }; { rStUrn (Gatte 

friend ostream& operator « { ostreamS os, const uwgknotenCt Node); 

}; 

ffendif 

^include "AS GraphKante . h" 
□ 

#include <iostream> 

ostreamfi operator « ( ostreami os, const GraphKanteC & Kante) { 
os « Kante. KantenTyp; 
return os; 

} 

# include M AS_GraphNode . h" 
D 

^include <iostream> 
□ 



D 



ostreams operator « ( ostreami os, const GraphNodeC& Node}{ 



os « endl « Node.NodeNr; 
return os; 



# include "AS_Slice . h" 
□ 

^include <iostream> 
□ 

f include <iterator> 
□ 

# include <algorithm> 
□ 

^include "uwggraph . h" 
□ 



using namespace std; 
□ 



//FO: Funktion zur Auswahl der Variable, far die ein Fehlerbaum erstellt werden soil. 

CC„ • ZuriUck g e g e ben wird ein Zeiger auf den ausgewahlten Knoten 
KFGListC: : iterator SliceC : : def ineVariableToSl ice ( KFGListC & L2 ) f 
int Number =0; 

KFGListC: : iterator KFGI = L2.begin{); 
KFGListC: : iterator VARDEFI = L2.begin(); 
KFGUseListC: : iterator USEIT; 
while ( KFGI != L2 . end { ) ) { 

USEIT = KFGI->Uses. begin ( ) ; 

if { KFGI->getKFGNodeType ( ) == OP ) { 
endl;; C ° Ut <<C KFGI - > g etKn °tenNummer ( ) « » : » « USEIT->getUse ( ) « 

} 

KFGI++; 

} 

cout « "Geben Sie die Knotennummer ein und drucken Sie RETURN • - 
cin » Number; * ' 

while { KFGI != L2.begin()J { 

if (KFGI->getKnotenNummer ( ) == Number) { 
VARDEFI = KFGI; 

} 

KFGI — ; 

} 

if (VARDEFI->getKFGNodeType ( ) OP) { 

endl; C ° Ut << " Aus 9« w ahlt wurde Knoten Nr.: » « VARDEFI->getKnotenNummer ( ) « 
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return VARDEFI; 

} 

else { 

VARDEFI = L2.begin(); 

cout « "Dieser Knoten ist kein Ausgabeknoten, das Programm wird beender 

« endl; 

exit(l); 
return VARDEFI; 

} 

} 



//Fl: Sucht P-Use Knoten, fugt ihn dem Slice hinzu und zieht eine KFK. 

// input: Iterator auf den C-Use oder D-Use, KFG-Liste; 

void SliceC: : si ice For Loops ( KFGListC & L2, KFGListC: : iterator LOOPIT) { 

int HLevel; 

int check = 0; 

int KnotenNummer = 0; 

KFGListC: : iterator HELPIT « LOOPIT; 

while ( {LOOPIT->getKFGNodeType ( ) ! LC && LO0PIT->getKFGNodeType ( ) != IFC) || 
(LOOPIT->getLevel ( ) ! = HELPIT->getLevel { ) ) ) { 
LOOPIT — ; 

} 

KnotenNummer = LOOPIT->getNodeNr ( ) ; 
check = checkForNodes {KnotenNummer ) ; 
//insert ( * LOOPIT, * HELPIT, KFK) ; 

insert ( *HELPIT, *LOOPIT, KFK); //umgekehrte Richtung der Kante, damit jeder Knoten 
seine VorgSnger kennt. 

//cout « "eingefugterKnotenFla : " « LOOPIT->getNodeNr ( ) « endl; 

//cout « "eingefugterKnotenFla: " « HELPIT->getNodeNr { ) « endl « endl; 

if (check == 0) { 

findAHDefs (L2, LOOPIT); 

} 

HLevel = LOOPIT->getLevel ( ) ; 
while (LOOPIT->getLevel ( ) > 2) { 

check == 0; 

HELPIT = LOOPIT; 

while { { LOOPIT->getKFGNodeType ( } != LC && LO0PIT->getKFGNodeType ( ) '= IFC) 
II {LOOPIT->getLevel ( ) >= HELPIT->get Level ( ) ) ) { 
LOOPIT — ; 
} 

KnotenNummer = LOOPIT->getNodeNr ( ) ; 
check = checkForNodes (KnotenNummer ) ; 
//insert ( *LOOPIT, * HELPIT, KFK) ; 

insert ( +HELPIT, *LOOPIT, KFK) ; //umgekehrte Richtung der Kante, damit jeder 
Knoten seine Vorganger kennt. 

//cout « "eingefQgterKnotenFlb: " « LOOPIT->getNodeNr ( ) « endl; 

//cout « "eingefagterKnotenFlb: " « HELPIT->ge tNodeNr ( ) « endl « endl; 

if (check == 0) { 

f indAHDefs ( L2, LOOPIT); 

} 

HLevel = LOOPIT->getLevel ( ) ; 

} 

} 



//F2: Sucht alle D-Uses zu einem P-Use, fOgt diese dem Slice hinzu und zieht DFK. 
// input: Iterator auf den Knoten mit der P-Use Liste, KFG-Liste; 
void SliceC: : findAHDefs (KFGListC & LI, KFGListC :: iterator ITER) { 

int AktLevel; 

int dummylf = 0; 

int KnotenNummerEnde = 0; 

AktLevel = ITER->getLevel ( ) ; 

KFGListC: : iterator HELPIT = ITER; 

KFGListC: : iterator HELPIF = ITER; 

KFGListC: : iterator HELPLOOP = ITER; 

KFGListC: : iterator UPPERLIMIT = ITER; 

KFGP_UseListC: : iterator PUSEIT; 

PUSEIT = ITER->P_Uses. begin () ; 

KFGDefListC: : iterator DEFIT1; 

if (ITER->getKFGNodeType ( ) == LC) { 

while ( (HELPLOOP->getKFGNodeType ( ) !=EL) || ( HELPLOOP->getLevel ( ) != Akt- 
Level ) ) { 

HELPLOOP++; 

} 

HELPIT = HELPLOOP; 

KnotenNummerEnde - HELPLOOP->getNodeNr ( ) ; 
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wr.ile (PUSEIT != ITER->P_Uses . end ( } ) { 

UPPERLIMIT = findUpper Limit { LI, ITER, PUSEIT } ; 
HELPLOOP = f indLower Limit ( LI, ITER, UPPERLIMIT); 
//insert ( *UPPERLIMIT, *ITER, DFK) ; 

insert ( *ITER, *UPPERLIMIT, DFK) ; //umgekehrte Richtung der Kante, damit jeder 
Knoten seine VorgSnger kennt. 

//cout « "eingeftigterKnotenF2a : " « UPPERLIMIT->getNodeNr ( ) « endl ; 
//cout « "eingef UgterKnotenF2a : " « ITER->getNodeNr ( ) « endl; 
while (HELPLOOP !^ UPPERLIMIT) { 
HELPLOOP — ; 

if (HELPLOOP->getKFGNodeType ( ) « EE1 ) { 
dummy I f = 1; 

if { { HELPLOOP->getKFGNodeType { ) == ETh) && { HELPLOOP->getLevel { ) < 
ITER->getLevel ( ) ) && (dummylf ==0)) { 

HELPIF = HELPLOOP; 

while t (HELPLOOP->getKFGNodeType ( } != IFC) I 1 (HELPLOOP- 
>getLevel ( ) HELPI F->getLevel ( ) ) } { 

HELPLOOP — ; 

} 

dummylf = 0; 

} 

if (HELPLOO?->getKFGNodeType ( ) -- NO) { 
DEFIT1 = HELPLOOP->De fs. begin () ; 
while { DEFIT1 != HELPLOOP->De f s . end ( ) ) { 

if (strcmp ( PUSEIT->getUse ( ) , DEFITl->getDef ( ) ) 0) 
//insert ( *HELPLOOP, *ITER, DFK) ; 
insert {* ITER, *HELPLOOP, DFK) ; //umgekehrte Rich 
tung der Kante, damit jeder Knoten seine Vorganger kennt. 

def InLoop ( LI, HELPLOOP) ; 

//cout « "eingef ugterKnotenF2b: " « HELPLOOP 



>getNodeNr() « endl; 
>getNodeNr{) « endl « endl; 



//cout « "eingefugterKnotenF2b: " « ITER- 

if ( !HELPLOOP->Uses. empty ( ) ) { 

f indDef ToCUse ( LI , HELPLOOP}; 

} 



} 

DEFIT1++; 

} 

} 

} 

PUSEIT++ ; 

} 

KFKPUseToCUse ( ITER, KnotenNummerEnde ) ; 



//F5: Funktion sucht den ersten def oberhalb eines p-uses oder c-uses und 
// liefert einen Iterator auf diese obere Grenze bei der Suche aller defs 

// zurOck. 

KFGListC: : iterator SliceC: : f indUpperLimit ( KFGListC & LI, KFGListC :: iterator ITER, 
KFGP_UseListC: : iterator PUSEIT) { 

int dummy = 0; 

int dummyl =* 0; 

int dummylf = 0; 

int AktLevel = 0; 

KFGListC: : iterator HELPDEF = ITER; 
KFGListC: : iterator HELPLOOP = ITER; 
KFGListC: : iterator HELPIF = ITER; 
KFGListC: : iterator HELPIT = ITER; 
KFGListC: : iterator HELPDE FRETURN = ITER; 
KFGDefListC: : iterator DEFIT; 
AktLevel « ITER->get Level ( ) ; 

//finden des ersten defs oberhalb des p-use. 
while ( (HELPDEF != Ll.begin(J) && (dummy ! = I } ; { 
HELPDEF — ; 

if (HELPLOOP->getKFGNodeType ( ) == EE1 } { 
dummyl f = 1 ; 

} 

if ( (HELPDEF->getKFGNodeType( ) == ETh) && ( HELPDEF->getLevel ( ) < ITER- 
>getLevel()) && (dummylf == 0)) { 

HELPIF = HELPDEF; 

while ( (HELPDEF->getKFGNodeType( ) !=IFC) || { HELPDEF->ger Level ( } '= 

HELPI F->getLevel ()) ) { 

HELPDEF — ; 

} 
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dummy I f = 0 ; 

} 

if (HELPDEF->getKFGNodeType ( ) == NO) { 
DE FIT = HELPDEF->Def s. begin ( ) ; 

if (strcmp ( DEFIT->getDef ( ) , PUSEIT->getUse ( ) ) == 0) { 
HELP DE FRETURN = HELPDEF; 
dummy = 1 ; 

} 

} 

} 

if {(HELPDEF == Ll.begint)) && ( HELPDEF->getKFGNodeType ( ) == NO)) { 
DEFIT = HELPDEF->Def s. begin ( ) ; 

if (strcmp { DEFIT->getDef (), PUSEIT->getUse () ) ==0) { 
HE LPDE FRETURN = HELPDEF; 
dummy = 1 ; 

} 

} 

//finden der auflersten Schleife, falls diese uberhaupt existiert. 
if (ITER->getLevel ( ) > 2) { 

while ( (HELPIT != LI - end ( } ) && (dummyl != 1}) { 
HELPIT++; 

if ( (HELPIT->getKFGNodeType( ) == EL) && ( HELPIT->getLevel ( ) < Akt- 

Level)} { 

HELPLOOP = HELPIT; 

if (HELPIT->getLevel ( ) > 2) { 

AktLevel = HELPIT->get Level { ) ; 

} 

else { 

dummyl = 1 ; 

} 

} 

} 

HELPIT = HELPLOOP; 

//gehe zum Anfang der auBersten Schleife: 

while ( ( HELPIT->getKFGNodeType ( ) !=LC) || ( HELPIT->getLevel ( ) !=HELPLOOP- 

>getLevel ( ) ) ) { 

HELPIT — ; 

} 

//wenn der gefundene def-Koten auBerhalb der auBersten Schleife liegt, und 
//sein ScopeLevel grofier ist als das der auflersten Schleife, suche, ob es 
//noch einen weiteren def-Knoten weiter oben gibt. 
if (HELPDEF->getNodeNr ( ) > HELPIT->getNodeNr ( ) } { 

if { HELPDEF->getLevel ( ) >= HELPIT->getLevel ( ) ) { 
dummy = 0; 

while ((HELPDEF != Ll.begin(J) && (dummy != 1)) { 
HELPDEF--; 

DEFIT - HELPDEF->Defs .begin () ; 

if ( strcmp ( DEFIT->get De f (), PUSEIT->getUse ( ) ) == 0) { 
HE LPDE FRETURN = HELPDEF; 
dummy = 1; 

} 

} 

} 

} 

} 

return HE LPDE FRETURN; 

} 



//F6: Funktion sucht, abhangig vom oberen Ende, das untere Ende des Bereichs, indem 
// die defs gesucht werden mOssen. 

// ZurUckgelief ert wird ein Iterator auf die untere Grenze. 

KFGListC: : iterator SliceC; : find Lower Limit ( KFGListC & LI, KFGListC: : iterator ITER 
KFGListC: : iterator UPPERLIMIT) { " ' 

int dummyl = 0; 

int AktLevel = 0; 

KFGListC: : iterator HELPIT = ITER; 

KFGListC: : iterator HELPLOOP = ITER; 

KFGListC: : iterator LOWERLIMIT = ITER; 

AktLevel = ITER->get Level ( ) ; 

if (ITER->getKFGNodeType ( ) === LC) { 

while ( (HELPLOOP->getKFGNodeType( ) !=EL) || ( HELPLOOP->get Level ( ) ^Akt- 
Level ) ) { 

HELPLOOP++; 

} 

i 

//finden des Endes der auBersten Schleife. 
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if (ITER->getLevel ( ) > 2) { 

while {(HELPIT != LI . end ( ) ) && (durwnyl ! = 1) ) { 
HELPIT++; 

if ( (HELPIT->getKFGNodeType ( ) == EL) && { HELPIT->getLevel { ) < Akt- 



Level ) ) { 



HELPLOOP = HELPIT; 

if (HELPIT->getLevel ( ) > 2) { 

AktLevel = HELPIT->getLevel ( ) ; 

} 

else { 

dummyl = 1 ; 



HELPIT = HELPLOOP; //HELPLOOP zeigt auf das Ende der au- 

Bersten Schleife, ansonsten auf den p-use. 

while ( (HELPIT->getKFGNodeType{ ) != LC) || ( HELPIT->getLevel { ) != HELPLOOP- 

>getLevel ( ) } ) { 

HELPIT — ; 

} //HELPIT zeigt auf den 

Anfang der Suflersten Schleife. 

if (HELPIT->getNodeNr ( ) < UPPERLIMIT->getNodeNr ( ) ) { 

LOWERLIMIT = HELPLOOP; // falls die obere Grenze aufierhalb der Schlei- 

fen liegt. 

} 

else { 

AktLevel = UP PERLIMIT->get Level ( ) ; 

while ( (HELPLOOP->getKFGNodeType ( ) != EL) II ( HELPLOOP->getLevel ( ) < 
AktLevel)) { 

HELPLOOP--; 

} 

LOWERLIMIT = HELPLOOP; // falls die obere Grenze innerhalb der Schleife 

liegt . 

} 

} 

else { 

LOWERLIMIT = HELPLOOP; 

} 

return LOWERLIMIT; 




//F3: Funktion zieht eine KFK vom P-Use zu alien C-Uses, die sich in derselben 
// Schleifen- bzw. Verzweigungsebene befinden. 
// input: Iterator auf P-Use Knoten. 

void SliceC: : KFKPUseToCUse (KFGListC: : iterator PUSEIT, int Schlei f enEnde ) { 
SliceC :: iterator SL1 =* begin(); 
SliceC: : iterator SLHELP = beginM; 
KFGListC: : iterator ITER = PUSEIT; 
KFGUseListC: : iterator USEIT; 
KFGPJJseListC: : iterator PUSEIT2; 
KFGUseListC: : iterator CUSEIT2; 
int KnotenLevel; 
int KnotenNummer ; 

KnotenNummer = PUSEIT->getNodeNr ( ) ; 
KnotenLevel = PUSEIT->getLevel ( ) ; 

while (( *SL1 ). first. getNodeNr ( ) !- KnotenNummer) 

SL1++; 
SLHELP = SL1; 
SL1 - begin { ) ; 
while {SL1 ! = end ( ) ) { 

if ({KnotenNummer > ( *SL1 ). first . getNodeNr () ) && { Schlei f enEnde < 
(*SL1) . f irst. getNodeNr ( ) ) ) { 

if ((( *SL1 ). first .getKFGNodeType ( } =- NO) && (( *SL1 ). first . getLevel { ) 

== KnotenLevel ) ) { 

//insert( ( *SLHELP ) .first, (*SL1) . first, KFK); 

insert ( (*SL1 J . first, { *SLHELP ) . first, KFK) ; //umgekehrte Rich- 
tung der Kante, damit jeder Knoten seine Vorg^nger kennt. 

//cout « "eingef0gterKnotenF3 : " « 
(*SL1) . first. getNodeNr ( ) « endl; 

//cout « f, eingefugterKnotenF3 : n « 
( * SLHELP ) . f i rst . getNodeNr ( ) « endl; 

} 

} 

SL1++; 
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//F4: Funktion sucht, wenn der Knoten neben den defs noch c-uses enthalt, zu diesen 
// c-uses alle defs und zieht DFK vom gefundenem def zum c-use. 
5 void SliceC: : f indDefToCUse ( KFGListC & LI, KFGListC: : iterator ITER) { 
int HLevel; 
int check = 0; 
int dummy = 0; 
int dummylf = 0; 
1 0 int KnotenNummer = 0; 

KFGListC: :iterator HELPIT = ITER; 
KFGListC: : iterator HELPLOOP = ITER; 
KFGListC: : iterator HELPIF = ITER; 
KFGListC: : iterator LOWERLIMIT = ITER; 
15 KFGListC: : iterator UPPERLIMIT = ITER; 

KFGDefListC: : iterator DEFIT1; 
KFGUseListC: : iterator USEIT1; 
USEIT1 = ITER-MJses. begin ( ) ; 
HLevel = ITER->getLevel ( ) ; 
20 while (USEIT1 != ITER-MJses . end {) ) { 

UPPERLIMIT = f indUpper Limit FromCUse ( LI , ITER, USEIT1 ) ; 
HELPIT = f indLowerLimi tFromCUse (LI, ITER, UPPERLIMIT ) ; 
UPPERLIMIT — ; 

//cout « "eingefilgterKnotenF4a : " « UPPERLIMIT->getNodeNr ( ) « endl; 
//cout « "eingef0gterKnotenF4a : " « ITER->getNodeNr ( } << endl; 
while (HELPIT != UPPERLIMIT) { 

if (HELPLOOP->getKFGNodeType( ) == EE1 ) { 
dummy I f = 1 ; 

} 

if ( (HELPIT->getKFGNodeType( ) == ETh ) && { HELPIT->getLevel ( ) <= ITER- 
>getLevel ( )) && (dummylf ==0}} { 

HELPIF = HELPIT; 

while ( (HELPIT->getKFGNodeType ( ) != IFC) || ( HELPIT- 
>getLevel() != HELPI F->getLevel ( ) ) ) { 

HELPIT — ; 

} 

dummylf = 0; 

} 

if (HELPIT->getKFGNodeType { ) == NO) { 
DEFIT1 = HELPIT->Def s. begin ( ) ; 

if (strcmp(DEFITl->getDef ( ) f USEIT1 ->getUse ( ) ) == 0) { 
if ( !HELPIT->Uses. empty ( ) } { 

KnotenNummer = HELPIT->getNodeNr ( ) ; 
check = check Fo rNodes ( KnotenNummer ) ; 

} 

//insert ( *HELPIT, *ITER, DFK) ; 

insert ( * ITER, * HELPIT, DFK) ; //umgekehrte Richtung der 
Kante, damit jeder Knoten seine Vorganger kennt. 

def InLoop ( LI, HELPIT) ; 

//cout « "eingeftigterKnotenF4b: " « HELPIT- 

>getNodeNr() « endl; 

//cout « M eingefagterKnotenF4b: " « ITER- 

>getNodeNr() « endl « endl; 

if (check == 0) { 

f indDefToCUse ( LI, HELPIT) ; 



30 



35 



40 



45 



50 



55 



60 



} 

} 

HELPIT — ; 

} 

USEIT1++; 



65 

//F8: Funktion sucht die untere Grenze, von der an die defs zu einem c-use gesucht 
// werden dOrfen. 

KFGListC: : iterator SliceC: : f indLowerLimitFromCUse ( KFGListC & LI, KFGLisrC: : iterator ITER 
/U KFGListC: : iterator UPPERLIMIT) { ' 
int HLevel; 
int dummy = 0; 

KFGListC: : iterator HELPIT = ITER; 
_ KFGListC: : iterator HELPLOOP = ITER; 

' KFGListC: : iterator LOWERLIMIT = ITER; 

KFGDefListC: : iterator DEFIT1; 

KFGUseListC: : iterator USEIT1; 

USEIT1 = ITER->Uses. begin { ) ; 
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HLevel = ITER->getLevel ( ) ; 

//1st der c-use Knoten in einer Schleife? 
if (ITER->getLevel ( ) >= 2 ) { 

while ({HELPIT != LI . end { ) } && (dummy != 1)) { 
HELPIT++; 

if ( ( HELPIT->getKFGNodeType ( ) == EL) && ( HELPIT->getLevel ( ) <= 



HLevel)) { 



HELPLOOP = HELPIT; 
if (HELPIT->getLevel ( ) > 2) { 
HLevel — ; 

} 

else { 

dummy = 1; 

} 

} 



} 



) 

//Der Iterator HELPLOOP zeigt jetzt auf das Ende der Sufiersten, den Knoten umgeben- 

den 

//Schleife, falls es diese gibt, ansonsten zeigt der Iterator auf den c-use-Knoten 

selbst . 

if (HELPLOOP != ITER) { 

HELPIT = HELPLOOP; //Iterator zeigt auf das Ende der SuBersten 

Schleife . 

while ( (HELPIT->getKFGNodeType ( ) LC) II { HELPIT->getLevel ( ) != HELPLOOP- 

>getLevel ( ) ) ) { 

HELPIT—; 

} 

if (HELPIT->getNodeNr ( ) < UPPERLIMIT->getNodeNr ( ) ) { 

LOWERLIMIT - HELPLOOP; //obere Grenze aufierhalb der Sufiersten Schlei- 

fe; 

} 

else if { ITER->getLevel { ) UPPERLIMIT->getLevel ( ) ) { 

LOWERLIMIT = ITER; //obere Grenze mit dem c-use in dersel 

ben Schleife; 

} 

else if (ITER->getLevel ( ) < UPPERLIMIT->getLevel ( ) J { 

LOWERLIMIT = HELPLOOP; //obere Grenze in derselben auSeren Schleife 

aber 

} //innerhalb in einer 

anderen, vor dem c-use liegenden Schleife; 
else { 

HLevel = UPPERLIMIT->get Level ( } ; 

while { (HELPLOOP->getKFGNodeType ( ) != EL) || ( HELPLOOP->get Level ( ) < 

HLevel)) { 

HELPLOOP — ; 

} 

LOWERLIMIT = HELPLOOP; / /obe re Grenze in einer niedrigeren Schleife 

als der c-use; 

} 

} 

else { 

LOWERLIMIT = ITER; //keine Sufiere Schleife vorhanden. 

} 

return LOWERLIMIT; 

} 



//F7: Funktion sucht die obere Grenze, bis zu der defs zu einem c-use gesucht werden 
// diirfen. Die Funktionsweise ist Shnlich entsprechenden Funktion fur p-uses. 
KFGListC: : iterator SliceC: : f indUpperLimi tFromCUse (KFGListC & LI, KFGListC: : iterator ITER1, 
KFGUseListC: : iterator USEIT) { 

int dummy = 0; 

int dummy 1 = 0; 

int dummyl f = 0; 

int AktLevel = 0; 

KFGListC: : iterator HELPDEF = ITER1; 
KFGListC: : iterator HELPLOOP = ITER1; 
KFGListC: : iterator HELPIT = ITER1; 
KFGListC: : iterator HELPIF = ITER1; 
KFGListC: : iterator HELPDEFRETURN = ITER1; 
KFGDefListC: : iterator DEFIT; 
AktLevel = ITERl->getLevel ( ) ; 

//cout « "bearbeitender Knoten: " « ITERl->getNodeNr { ) « endl; 
//finden des ersten defs oberhalb des use- 
do { 

if (HELPLOOP->getKFGNodeType { ) == EE1 ) { 
dummyl f = 1 ; 
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} 

if ( (HELPDEF->getKFGNodeType( ) « ETh ) && ( HELPDEF->getLevel ( ) <= ITER1- 
>getLevel ( ) ) && (dummylf ==0)) { 

HELPIF = HELPDEF; 

while ( (HELPDEF->getKFGNodeType( ) !=IFC} || ( HELPDEF->getLevel ( ) ' 
HELPIF->getLevel ( ) ) ) { y U " 

HELPDEF — ; 

} 

dummylf - 0; 

} 

if (HELPDEF->getKFGNodeType ( ) =» NO) { 
DE FIT = HELPDEF->Defs. begin ( ) ; 

if (strcmp(DEFIT->getDef ( ) ,USEIT->getUse( ) ) == OJ { 
HELPDEFRETURN = HELPDEF; 
if (HELPDEF ITER1 ) { 
dummy = 1; 

} 

} 

} 

HELPDEF — ; 

} while ((HELPDEF LI. begin ()) && (dummy 1)}; 

if ((HELPDEF == Ll.begin()i && ( HELPDEF->getKFGNodeType ( ) == NO) ) { 
DEFIT = HELPDEF->Def s. begin () ; 

if (strcmp(DEFIT->getDef ( ) , USEIT->getUse { ) ) == 0) { 
HELPDEFRETURN = HELPDEF; 

} 

} 

HELPDEF = HELPDEFRETURN; 

//cout « "erster def: " « HELPDEFRETURN->ge tNodeNr ( ) « endl; 
//finden der auBersten Schleife, falls diese uberhaupt- exisriert 
if (ITERl->getLevel ( ) >= 2 ) { 

while ( (HELPIT != LI . end ( ) ) && (dummyl != 1)) { 
HELPIT++; 

if ( (HELPIT->getKFGNodeType( ) == EL) && (HELPIT->getLevel ( ) <= Akt- 



Level ) ) { 



} 



HELPLOOP = HELPIT; 
if (HELPIT->getLevel ( ) > 2) { 
AktLevel — ; 

} 

else { 

dummyl = 1; 

} 



endl ; 

liegt, und 
ob es 



} 

HELPIT = HELPLOOP; 

//cout « "Ende der auBersten Schleife: " « HELPIT->getNodeNr ( > « endl; 
//gehe zum Anfang der auBersten Schleife, wenn es diese gibt; 
if (HELPLOOP->getKFGNodeType ( ) == EL) { 

HELPLOOP-> g etLevel,,,,T le ' ' HBLPIT ~>^ K ^^ " ! =^' ' ' I HELPIT->g.tLevel , , 

HELPIT--; 

} 

//cout « "Anfang der SuBeren Schleife: " « HELPIT->getNodeNr ( ) « 

//wenn der gefundene def-Koten auBerhalb der auBersten Schleife 

//sein ScopeLevel grofler ist als das der auBersten Schleife, suche, 

//noch einen weiteren def-Knoten weiter oben gibt. 
if ( HELPDEF->getNodeNr ( ) > HELPIT->getNodeNr ( ) ) { 

if ( HELPDEF->getLevel ( ) >= HELPIT->getLevel ( ) ) { 
dummy = 0; 

while ((HELPDEF != Ll.begin(J) && (dummy != 1)) { 
HELPDEF--; 

DEFIT = HELPDEF->Defs.begin( > ; 
Q) { if (strcmp( DEFIT->getDef ( ) , USEIT->getUse ( ) ) == 

HELPDEFRETURN = HELPDEF; 
dummy = 1 ; 

) 

} 

} 

) 

//c-use innerhalb der auBersten Schleife; 
else { 

if (HELPDEF->getLevel ( ) > ITERl->getLevel ( ) ) { 
dummy = 0; 

while (HELPDEF != HELPIT) { 
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HELPDEF — ; 

DEFIT = HELPDEF->Def s .begin ( ) ; 

if (strcmp(DEFIT->getDef { J , USEIT->getUse ( ) ) 

HELPDEFRETURN = HELPDEF; 



10 , 1 

//c-TUse in^keiner -Schleif e r -aber in einer Verzweigung; 
else ( 

if (HELPDEF->getLevel ( ) > ITERl->ge tLevel ( ) ) { 
dummy = 0; 

15 while -( CHE-L-PDEF 1= Ll.beginf}) && (dummy != 1)) { 

HELPDEF — ; 

DEFIT - HELPDEF->Defs. begin ( }; 

if {strcmp{DEFIT->getDef ( ) , USEIT->getUse ( ) ) == 0) { 
HELPDEFRETURN = HELPDEF; 

2 0 dummy = 1 ; 

} 

} 

} 

25 , ' 

//c-use in keiner Schleife; 
else { 

if (HELPDEF->getLevel { ) > ITER1 ->getLevel ( ) } { 
dummy — 0; 

30 while ((HELPDEF != Ll.begin(J) && (dummy != 1)) { 

HELPDEF — ; 
"DEFIT = HELPDEF->Defsvbegin( ) ; 
if ( strcmp( DEFIT->getDe f ( ) , USEIT->ge tUse ( ) ) ==0) { 
HELPDEFRETURN - HELPDEF; 

3 5 dummy = 1 ; 

} 

} 

} 

4 0 //cout <<^UpperLimitFunkt*on: "~ <o HELPDEFRETURN ->getNodeNr ( ) « endl; 

return HELPDEFRETURN; 

} 

45 / / F9 : Funk t ion UberprOf t , ob ein Knot en bereits im Slice vorhanden ist . Wenn j a, 
// wird eine eins zuriickgelief ert, andernfalls eine null. 
// input: Knotennummer des gesuchten Knotens; 
// output: Integerwert 0 oder 1; 
int SliceC : : checkForNodes ( int NodeNumber) { 
50 int dummy = 0; 

SliceC: : iterator SL1 = begin () ; 

while ((SL1 != end ( ) ) && (dummy 1}) { 

if ( (+SL1 ). first. getNodeNr( ) == NodeNumber) { 
dummy = 1 ; 

55 } 

SL1++; 

} 

i f ( dummy == 1 ) { 
return 1; 

60 > 

else { 

return 0; 

} 

65 1 

//F10: Funktion untersucht, ob ein def in einer Schleife ist; wenn ja, wird die 
// Funktion Fl, die den p-use sucht, aufgerufen. Dort wird als erstes nach- 

'0 // gesehen, ob der gefundene p-use bereits im Slice vorhanden ist. 

void SliceC: : def InLoop ( KFGListC & LI, KFGListC :: iterator ITER) { 
int dummyLoop = 0; 

KFGLis.tC: :iterator HELPIT = ITER; 

while ((HELPIT != Ll.beginf )) && (dummyLoop != 1)) { 
75 HELPIT — ; 

if ( ( (HELPIT->getKFGNodeType( ) == LC) || ( HELPIT->getKFGNodeType ( ) == IFC) 
&& (HELPIT->getLevel ( ) == ITER->getLevel ( ) ) ) { 

si ice For Loops { LI , ITER } ; 
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dummyLoop = 1 ; 

} 

} 

} 



//Fll: Funktion bekommt den ausgewahlten Startknoten fur den Slice Ubermmittelt, 
// untersucht, ob dieser Knoten in einer Schleife ist; wenn ja, wird zuerst 

// die Funktion "sliceForLoops" aufgerufen, ansonsten sofort " f indDef ToCUse" ' . 

void SliceC: : startBuildSlice (KFGListC & LI/*, KFGListC :: iterator OUTPUTIT*/) { 
int dummyNode = 0; 

KFGListC: : iterator STARTVARI = def ineVariableToSl ice ( LI ) ; 
KFGListC: : iterator HE L POUT = STARTVARI; 
while ( (HELPOUT != LI. begin! J) && (dummyNode != 1)> { 
HE L POUT — ; 

if ( ( (HELPOUT->getKFGNodeType ( ) == LC) || ( HELPOUT->getKFGNodeType ( ) 
IFC)) && (HELPOUT->getLevel ( ) — STARTVARI ->getLevel ()) ) { 

sliceForLoops (LI, STARTVARI ) ; 
dummyNode = 1 ; 

} 

} 

//cout « "Fll" « OUTPUTIT->getNodeNr { ) « endl; 
f indDef ToCUse ( LI , STARTVARI ) ; 



void SliceC :: sliceAusgeben ( ) { 

ofstream Ziel ( "Slice2 . sic" ) ; 

ostream_iterator<KFGListNodeC> POSIT (Ziel, "\n" ); 
//ostream_iterator<KFGListNodeC> POSIT2(Ziel, "\n"); 
SliceC: : iterator SLC = begin(); 
while (SLC ! = end ( ) ) { 

*POSIT++ = (*SLC) . first; 

SliceC: : Nachfolger: : iterator IT = { +SLC }. second . begin () ; 
SliceC: :Nachfolger: : iterator ITEND = ( + SLC J . second - end () ; 
while (IT != ITEND) { 

//a = (*IT) . first; 

*POSIT++ = SLC[ (*IT) . first] . first; 
*IT++; 

} 

++SLC; 

} 

} 



^include "KFGDef.h" 
□ 

#include <iostream> 
□ 

□ 

ostreamfi operator « { ostreamS os, const KFGDefCS Node ) { 

□ 

^ os « "DEF: " « Node. Def « " » « Node . ScopeLevelD; 

return os; 

□ 

} 

^include "KFGLineNode . h" 
□ 

^include <iostream> 

ostreamS operator « ( ostreamS os, const KFGLineNodeC& Node ) { 
os « Node. Name « " " << Node . LineNumbe r « endl; 
return os; 



//Funktion, die aus KFGTokenList einen KFG baut. 
□ 
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#include <iostream> 
□ 

^include "KFGLi st » h" 

Q 

ffinclude "KFGTokenList . h" 
include "KFGUse.h" 
^include "KFGDef.h" 
^include "KFGProgList . h H 
ffinclude <algorithm> 

void KFGListC: :TokenList2KFGList (KFGTokenListC & LI ) { 
int dummy; 

KFGTokenListC: : iterator TLI = LI . end { ) ; 
KFGPJJseListC: : iterator P_USEI; 
KFGUseListC: : iterator USEI; 
dummy = 0; 

//while {strcmp(TLI->getName ( ) , "main" ) != 0} { 
while ({TLI != Ll.beginOi && (dummy != 1)} { 
if (TLI->getTokenNodeType ( ) == N) { 

if (strcmp(TLI->getName ( ) , "main" ) == 0} { 
dummy = 1 ; 

> 

} 

//TLI++; 

switch (TLI->getTokenNodeType ( ) ) { 
case PL: 



{ 



>getLineNumber ( ) ) ; 
>getScopeLevel ( ) } ) ; 



TLI — ; 

KFGListNodeC hNl ( "NORMAL" , NO, TLI->getScopeLevel ( ) , TLI- 
hNl . Defs.push_back ( KFGDefC ( TLI->getName ( ) , TLI- 



push_f ront (hNl ) ; 
TLI — ; 

} 

break; 
/*case IF: 

push_f ront (KFGListNodeC ( "IF", I FC, TLI ->get Scope Level ( ) ) ) ; 
TLI — ; 
break; */ 
case BT: 

//push_f ront ( KFGLi stNodeC ( "BT" , BTh, TLI->getScopeLevel ( ) ) ) ; 
TLI — ; 

//KFGP_UseListC : : iterator PJJSEI; 

KFGListNodeC hNl ( "IFCOND", IFC, TLI ->getScopeLevel { ) ,TLI- 

>getLineNumber ( ) ) ; 

while (TLI->getTokenNodeType ( ) != IF) { 

KFGUseC hUsel (TLI->getName ( ) , TLI ->getScopeLevel ( ) ) 
P_USEI = 

find ( hNl . P_Uses . begin ( ) , hNl . P_Uses . end ( ) , hUsel ) ; 

if (P_USEI == hNl. P_Uses.end( ) ) { 

hNl . P_Uses.push_back (hUsel ) ; 
Anzahl_P_Uses++; 

} 

//hNl . P_Uses . push_back ( KFGUseC ( TLI->getName ( ) , TLI- 

>getScopeLevel ( ) } ) ; 

TLI — ; 

} 

push_f ront (hNl ) ; 
Entscheidungen++ ; 

} 

break; 
case ET: 

push_f ront ( KFGListNodeC ( "ENDTHEN" , ETh, TLI->getScopeLevel ( ) ) ) ; 
TLI — ; 
break; 
case BE: 

push_f ront (KFGListNodeC ( "BEGINELSE" , BE1 , TLI ->getScopeLevel ( ) } ) ; 
TLI--; 
break; 
case EE: 

push_f ront (KFGListNodeC ( "ENDELSE" , EE1 , TLI->getScopeLevel ( } ) ) ; 
TLI — ; 
break; 
/*case WHILE: 

push_ front ( KFGListNodeC ( "WHILE" , LC, TLI->getScopeLevel ( ) ) ) ; 
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TLI — ; 
break;*/ 
case BW: 

//push_f ront (KFGListNodeC ("BW",BL,TLI->getScopeLevel ( ) ) ) ; 

{ 

TLI — ; 

//KFGP_UseListC: : iterator P_USEI; 

KFGListNodeC hNl ( "LOOPCOND", LC, TLI->getScopeLevel ( ) ,TLI- 

>getLineNumber ( ) ) ; 

while (TLI->getTokenNodeType { ) != WHILE) { 

KFGUseC hUsel ( TLI->getName ( ) , TLI->getScopeLevel ( ) ) 
P_USEI = 

f ind( hNl. P_Uses. begin ( ) , hNl . P_Uses . end ( ) , hUsel) ; 

if (P_USEI == hNl.P_Uses.end()) { 

hNl . P_Uses . push_back ( hUsel ) ; 
Anzahl_P_Uses++ ; 

} 

//hNl. P_Uses . push_back ( KFGUseC { TLI->getName { ) , TLI- 

>getScopeLevel ( ) ) ) ; 

TLI — ; 

} 

push_f ront {hNl } ; 

Schlei f enentscheidungen++; 

} 

break; 
case EW: 

push_f ront (KFGListNodeC ("ENDLOOP", EL, TLI ->getScopeLevel ( ) ) ) ; 
TLI — ; 
break; 
case BDOW: 
{ 

TLI — ; 

KFGListNodeC hNl { "DOWHILELOOPCOND" , DOWLC, TLI- 
>getScopeLevel ( ) , TLI->getLineNumber ( ) } ; 

while (TLI->getTokenNodeType ( ) != DOWS ) { 

KFGUseC hUsel (TLI->getName { ) f TLI->getScopeLevel ( ) ) ; 

P_USEI = 

find (hNl . P_Uses .begin { } , hNl . P_Uses. end ( ) , hUsel ) ; 

if (P_USEI == hNl.P_Uses.end(} ) { 

hNl . P_Uses . push_back ( hUsel ) ; 
Anzahl_P_Uses++; 

} 

hNl . P_Uses . push_back ( KFGUseC ( TLI->getName ( ) , TLI- 

>getScopeLevel ( ) ) ) ; 

TLI — ; 

} 

push_f ront ( hNl ) ; 

} 

breaks- 
case DO: 

push_f ront ( KFGListNodeC ( "DOWHILELOOP" , DOWL, TLI ->ge t Scope Level ( ) ) ) ; 
TLI — ; 

Schlei f enentscheidungen++ ; 
break; 
case EF: 

{ 

//TLI--; 
int HLevel; 

HLevel = TLI->getScopeLevel ( ) ; 

push_f ront (KFGListNodeC ("ENDLOOP", EL, TLI->getScopeLevel ( ) ) ) 
//while (TLI->getTokenNodeType ( ) != BF) { 
while ( (TLI->getTokenNodeType ( ) != BF) )| (TLI- 
>getScopeLevel ( ) != HLevel)) { 

TLI — ; 

} 

TLI — ; 

if (TLI->getTokenNodeType ( ) == PF) 
TLI — ; 

KFGListNodeC hNl ( "NORMAL" , NO, TLI->getScopeLevel ( ) ,TLI- 



>getLineNumber ( ) ) ; 
>getScopeLevel { ) ) ) ; 

>getScopeLevel { ) ) ) ; 



hNl . Def s .push_back ( KFGDe f C ( TLI ->getName ( ) , TLI - 
Anzahl_Def s++; 

hNl .Uses.push_back ( KFGUseC ( TLI->getName ( ) , TLI- 

Anzahl_Uses++; 
push_f ront (hNl ) ; 

//while (TLI->getTokenNodeType ( ) != EF) { 
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>getScopeLevel ( } != HLevel ) ) { 



break; 
:ase FOR D: 



>getLineNumber ( ) ) ; 



54 

while ( (TLI->getTokenNodeType { ) != £F) || (TLI- 
TLI++; 

} 

TLI — ; 

Zaehlschlei f enentscheidungen++ ; 
Schlei f enentscheidungen++; 



TLI — ; 

KFGListNodeC hNl ( "LOOPCOND" , LC, TLI->getScopeLevel { ) , TLI- 



while (TLI->getTokenNodeType( ) != DEF) { 

KFGUseC hUsel (TLI->getName ( ) , TLI->getScopeLevel ( ) J ; 
P_USEI = 

find ( hNl . P_Uses . begin { ) , hNl . P_Uses . end ( ) , hUsel ) ; 

if (P_USEI == hNl.P_Uses.end( ) ) { 

hNl . P_Uses.push_back (hUsel ) ; 
Anzahl P Uses++; 

} 

//hNl . P_Uses . push_back ( KFGUseC ( TLI->getName ( ) , TLI- 



>getScopeLevel ( ) } ) ; 



>getLineNumber { ) ) ; 
>getScopeLevel ()-!))); 



} 

break; 



TLI — ; 

} 

push_f ront (hNl ) ; 
TLI — ; 

KFGListNodeC hN2 { "NORMAL", NO, (TLI->getScopeLevel ( ) -1 ) , TLI- 
hN2.Defs.pu3h_back<KFGDefC{TLI->getName( ) , (TLI- 

Anzahl_Def s++; 
push_f ront {hN2 ) ; 
TLI--; 



>getLineNumber ( ) ) ; 

>getScopeLevel ( ) ) } ; 
>getScopeLevel ( ) ) ) ; 



case RET: 

//Nur eine vorlaufige Implementierung; muB noch erweitert werden 

//fUr den Fall, dafi nach dem RETURN eine Ausgabe folgt 

push_f ront < KFGListNodeC ( "RETURN" , RETURN, TLI->getScopeLevel ( ) ) ) ; 

break; 
case NL: 

TLI — ; 

//Knoten erzeugen, der Defs und Uses enthSlt; 
if (TLI->getTokenNodeType ( ) == N) { 

KFGListNodeC helpNodel ( "NORMAL" , NO, TLI ->getScopeLevel ( ) ,TLI- 

TLI — ; 

if (TLI->getTokenNodeType( ) ==NL) { 
TLI++; 

helpNodel . Defs . push_back { KFGDe fC { TLI->getName ( ) , TLI- 
Anzahl_Def s++ ; 

helpNodel . Uses . push__back ( KFGUseC ( TLI->getName ( } , TLI - 

Anzahl_Uses++; 
TLI — ; 



else { 



TLI++; 

while (TLI->getTokenNodeType ( ) !^ DEF) { 
KFGUseC hUsel (TLI->getName ( ) , TLI- 



>getScopeLevel ( ) ) ; 

USEI = 

find (helpNodel . Uses . begin { ) , helpNodel . Uses . end ( ) , hUsel ) ; 

if (USEI helpNodel. Uses. end ( ) ) { 

helpNodel .Uses ,push_back (hUsel ) ; 
Anzahl Uses++; 

} 

/ /helpNodel . Uses . push_back ( KFGUseC ( TLI - 
TLI — ; 

} 

TLI — ; 



>getName ( ) , TLI->getScopeLevel ( } ) ) ; 
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helpNodel . Def s . push_back { KFGDef C ( TLI->getName ( ) ,TLI- 

>getScopeLevel { ) ) ) ; 

TLI~; 

Anzahl_Def s++; 

if (TLI->getTokenNodeType ( ) == N) { 
helpNodel . Def s . pop_f ront ( ) ; 

Anzahl__Defs — ; //in 

diesem Fall handelt es sich um ein Array und 

//daher mufl der letzte Knoten wieder gelSscht werden. 

TLI++; 

//DafUr mufl der gelSschte Knoten in die Use-Liste eingetragen werden. 

KFGUseC hUse2 (TLI->getName ( ) , TLI- 

>getScopeLevel ( ) ) ; 

USEI = 

find (helpNodel .Uses .begin { ) , helpNodel . Uses . end ( ) , hUse2 ) ; 

if (USEI == helpNodel . Uses . end {} ) { 

helpNodel .Uses .push_back (hUse2 ) ; 
Anzahl Uses++; 



>getName ( ) , TLI->getScopeLevel ( ) ) ) ; 
>getName { ) , TLI ->getScopeLevel ( ) ) ) ; 



} 

TLI — ; 

helpNodel . Defs . push_back (KFGDef C ( TLI- 

helpNodel . Uses . push_back ( KFGUseC ( TLI- 

Anzahl_Def s++; 
Anzahl_Uses++; 
TLI — ; 



} 



>getLineNumber ( ) ) ; 
>getScopeLevel ( ) ) ) ; 



>getLineNumber { ) ) ; 
>getScopeLevel ( ) ) ) ; 
>getScopeLevel ( ) ) ) ; 



>getLineNumber ( ) ) ; 
>getScopeLevel ( ) ) ) ; 



default : 
} 



} 

push_f ront (helpNodel ) ; 

} 

//Knoten erzeugen, der nur Defs enthalt; 
else if (TLI->getTokenNodeType ( ) == DEF) { 
TLI — ; 

KFGListNodeC helpNodel ( "NORMAL" , NO, TLI->getScopeLevel ( ) ,TLI- 

helpNodel . Defs . push_back ( KFGDefC ( TLI ->getName ( ) , TLI- 

push_f ront (helpNodel J ; 
Anzahl_Def s++; 
TLI--; 

} 

else if (TLI->getTokenNodeType ( ) == PF} { 
TLI — ; 

KFGListNodeC hNl ( "NORMAL" , NO, TLI ->get Scope Level ( ) ,TLI- 

hNl . Defs .push_back (KFGDefC ( TLI->getName ( ) , TLI- 

hNl . Uses . push_back ( KFGUseC ( TLI->getName ( ) , TLI- 

push_f ront (hNl ) ; 
Anzahl_Def s++; 
Anzahl_Uses++; 

} 

//Knoten erzeugen, der Output-Variablen enthalt; 
else { 

TLI — ; 

KFGListNodeC helpNodel ( "OUTPUT" , OP, TLI ->getScopeLevel ( ) , TLI- 

helpNodel . Uses . push_back ( KFGUseC ( TLI->getName ( ) , TLI- 

push_f ront ( helpNodel ) ; 

Anzahl_Uses++; 

TLI — ; 

} 

Anweisungen + + ; 
break; 

TLI — ; 



KnotenNummern ( ) ; 

KFGListC: : iterator KFG = begin () ; 
Knotenldentifizierer (KFG) ; 
addLinelnToList ( ) ; 

Anzahl_Deklarationen = zaehleDeklarat ionen ( LI ) ; 
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void KFGListC: : KnotenNummern ( ) { 
int KnotenNr = 1; 

KFGListC: : iterator KFG1 = begin(); 
while (KFG1 != end ( } ) { 

if { (KFGl->getKFGNodeType ( ) -« EL) l| {KFGl->qetKFGNodeTvDe M — PThi ti 
(KFGl->getKFGNodeType ( ) — BED II ( KFGl->getKFGNode T ype < > - ee^ I 

KFG1 ++ ; 

} 

else { 

KFGl->setKFGKnotenNummer(KnotenNr) ; 

KnotenNr++; 

KFG1++; 



void KFGListC: : Knotenldenti f izierer ( KFGListC : : iterator KFG) / 
int LOOPLevel =0; 
int THENLevel - 0; 
int ELSELevel = 0; 
KFGListC: iterator KFG1 = KFG; 
KFGListC: :iterator LOOPIT = KFG; 
KFGListC: : iterator IFIT = KFG; 
KFGListC: : iterator ELSEIT = KFG; 
while (KFG1 != end ( ) ) { 

swi tch { KFG1 ->getKFGNodeType ( ) ) { 

case LC: 

{ 

LOOPLevel = KFGl->getLevel ( ) ; 
KFG1++; 

LOOPIT ~ KFG1; 

LOOPLevel ) ) { While ' « Krei ->9«tRreModeType ( ) I- EL) II ( KFGl->getLevel ( ) 

KFGl->setKnotenIdent (LOOP) ; 
KFG1++; 

} 

Knotenldenti f izierer ( LOOPIT ) ; 



break; 
case IFC: 



THENLevel = KFGl->gei- Level {) • 
KFG1++; 
IFIT = KFG1; 



!= THENLevel), { ( < KFG1 "^^GNodeType ( ) != ETh) || (KFGl->getLevel ( ) 



} 

break; 
case BE1 : 
{ 



KFGl->setKnotenIdent (THEN) 
KFG1++; 

} 

Knotenldenti f izierer ( IFIT ) ; 



ELSELevel = KFGl->getLevel ( } ; 
KFG1++; 

ELSEIT = KFG1; 

= ELSELevel ) , { * f KFGl->getKFGNodeType ( ) != EE1 ) || ( KFGl->getLevel ( ) 

KFGl->setKnotenIdent (ELSE) ; 
KFG1++; 

Knotenldenti f izierer (ELSEIT ) ; 

break; 
default : 

//cout « "Autsch" « endl; 

KFG1++; 

) 

//KFG1++; 
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void KFGListC: : addLinelnToLi st ( J { 
int zahl; 
char line [ 256 ] ; 
KFGProgListC LP; 

ifstream datei ( "CodeLine . dat ** ) ; 
if (! datei) { 

cout « "ERROR: Cannot open file ' CodeLine . dat " « endl; 

) 

else { 

while ( Jdatei . eof { ) ) { 

datei . getline ( line, 255, , \n , J; 
for (int i=0; i<st rlen ( line J ; i++) { 
if (line[i] == » "M { 

lined] = "\ ' ' ; 

} 

if dine[i] == MM { 
line[i] = MM 

} 

} 

zahl = atoi(line); 

KFGLineNodeC hknoten (line, zahl ) ; 

LP . push_back ( hknoten ) ; 

//cout << line « " " << zahl « endl; 

} 

} 

addLineToKFG ( LP ) ; 



void KFGListC : : addLineToKFG { KFGProgListC & LP) { 
int dummy = 0; 
char help [256] ; 

KFGListC: : iterator KFG1 = end { } ; 
KFGProgListC: : iterator PROG1 = LP.end(); 
//KFG1 — ; 

while (KFG1 !=begin()) { 
KFG1 — ; 

if ( ( KFGl->getKFGNodeType ( ) == EL) I | ( KFGl->getKFGNodeType ( ) == ETh ) 
(KFGl->getKFGNodeType ( ) BE1 J II ( KFGl->getKFGNodeType ( ) == EE1 ) ) { 

KFG1 — ; 

} 

while ((PROG1 != LP.begin()) && (dummy != 1)) { 

if (KFGl->getLineNr ( ) == PROGl->getLineNumber ( ) ) { 
strcpy(help, PROGl->getName ( ) ) ; 
KFGl->setCodeLine (help) ; 
PROG1 — ; 
dummy = 1; 

} 

else{ 

PROG1--; 

} 

} 

PR0G1 = LP. end ( ) ; 
dummy = 0; 

} 

} 



int KFGListC: : zaehleDeklarationen (KFGTokenListC & TL) { 
int zaehler = 0; 

KFGTokenListC: : iterator TListI = TL.end(); 
while (strcmp (TListI->getName ( ) , "main" ) != 0) { 
if (TListI->getTokenNodeType ( ) == TD) { 
zaehler++ ; 

} 

TListI — ; 

} 

return zaehler; 

} 



//Funktion zur Ausgabe der KFGList auf den Bildschirm und in eine Datei "CFGList" . 
void KFGListC: : Li steAusgeben ( ) { 

of st ream Ziell { "CFGList . cf g" ) ; 

ostream_iterator<KFGListNodeC> Pos ( Ziell, "\n" ); 
ostream_iterator<KFGDefC> PosD( Ziell, "\n" ); 
ostream_iterator<KFGUseC> PosU (Ziell, "\n"); 
ostream_iterator<KFGUseC> PosP(Ziell, "\n" ); 
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KFGListC: : iterator KLI = begin(); 
KFGDef ListC: : iterator DEF; 
KFGUseListC: : iterator USE; 
KFGP_UseListC: : iterator PJJSE; 
Ziell « "START" « endl « endl; 
while (KLI != end ( ) ) { 

Ziell « "Line " « KLI->getLineNr { ) « endl; 

Ziell « "Zeile " « KLI->getCodeLine ( } « endl; 

Ziell « "Knoten " « KLI->getKnotenNummer { ) « endl; 

Ziell « "KnotenTyp " « KLI->getKnotenIdent ( ) « endl; 

Ziell « KLI->getStatement ( ) « " « « KLI ->getLevel ( ) « endl; 

//*Pos++ = *KLI; 

DEF = KLI->Defs.begin( ) ; 

USE = KLI->Uses. begin ( ) ; 

P_USE = KLI->P_Uses. begin ( ) ; 

while (DEF != KLI->Def s . end ( } ) { 
//*PosD++ = + DEF; 
Ziell « "DEF: 
>getScopeLevelD{ ) « endl; 

DEF++; 



« DEF->getDef ( ) « " 



« DEF- 



} 

while (USE != KLI->Uses . end ( ) ) 
//*PosU++ = *USE; 
Ziell « "USE: " 
>getScopeLevelU{) « endl; 

USE++; 

} 

while <P_USE != KLI->P_Uses . end ( ) ) { 
//*PosP++ = *P_USE; 
Ziell << "PJJSE: 
P_USE->getScopeLevelU ( ) « endl; 

P USE++; 



{ 



« USE->getUse ( ) « " 



« USE- 



« P_USE->getUse ( ) « 



} 



} 

Ziell « endl; 
KLI++; 



« 
« 



Ziell 
Ziell 
Ziell « 
Ziell « 
Ziell 



STOP" « endl « endl; 
BASISGROESSEN: " « endl; 

Anzahl leerer Zweige: " « "0" « endl; 
Anzahl Entscheidungen: " << Entscheidungen « endl; 
Anzahl Anweisungen: " << Anweisungen << endl; 
Ziell « "Anzahl atomarer Pradikate: " « Entscheidungen « endl- 
Ziell « "Anzahl Pradikate: " « Entscheidungen « endl; 

Anzahl atomarer Pradikate, die arithm. Relationen sind: 



« 



Ziell « 



« endl; 



endl; 




Ziell « "Anzahl Deklarat ionen von st rukturierten Datentypen: " « "0" « endl ■ 
Ziell « "Anzahl Deklarat ionen : " « Anzahl_Deklarationen « endl; 
"Anzahl Realelement-Deklarationen : " « "0" « endl; 
, , "Anzahl Basistyp-Deklarationen: " « Anzahl Deklarat ionen « endl; 

Ziell « "Anzahl Defs: " « Anzahl_Defs « endl; 

"Anzahl Uses: " « Anzahl_Uses « endl; 
"Anzahl P-Uses: " « Anzahl_P_Uses « endl « endl - 
basisgroessenlnDatei ( ) ; 



Ziell « 
Ziell « 



Ziell « 
Ziell « 




void KFGListC: : basisgroessenlnDatei ( ) { 

ofstream datei ( "Basisgroessen . bgd" , ios::out); 

datei « "0" « endl; 

datei « Entscheidungen << endl; 

datei « Anweisungen « endl; 

datei « Entscheidungen « endl; 

datei « Entscheidungen « endl; 

datei « "0" « endl; 

datei « Schlei f enentscheidungen « endl; 
datei << "0" « endl; 

datei « Zaehlschlei f enentscheidungen « endl; 
datei « "0" << endl; 

datei « Anzahl_Deklarationen « endl; 
datei « "0" « endl; 

datei « Anzahl_Deklarationen « endl; 

datei « "0" « endl; 

datei « Anzahl_Defs « endl; 

datei << Anzahl_Uses « endl; 

datei « Anzahl P Uses « endl; 
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datei 


« 


"0" 


« 


endl; 


datei 


« 


MQM 


« 


endl ; 


datei 


« 


"0" 


« 


endl ; 


datei 


« 


"0" 


« 


endl; 


datei 


« 


"0" 


« 


endl; 


datei 


« 


"0" 


« 


endl; 


datei 


« 


"0" 


« 


endl ; 


datei 


« 


"0" 


« 


endl; 



ffinclude "KFGListe.h" 
□ 

□ 

KFGListeT KFGListe; 
□ 

□ 

void KFGListeAusgeben {KFGListeT & L ) { 
□ 

KFGListeT: : iterator I = L. begin ( ); 

□ 

while (I != L . end { ) ) 

COUt « << ' ' ; 

cout << M sized = M « L.sizeO « endl; 



ffinclude " KFGLi stNode . h" 
□ 

# include <iostream> 
□ 

□ 

ostream& operator << ( ostreamS os, const KFGListNodeC& Mode ) { 

□ 

os « endl « "KnotenNr:" « Node . KnotenNr « M Typ: M « Node . Knotenldent « 
endl « Node. Statement « " Level:" « Node. Level; 
return os; 

} 



int KFGLi s tNodeC :: DummyNodeNr=l; 



□ 

ffinclude "KFGNode . h" 
□ 

ffinclude <iostream> 
□ 

□ 

ostreamS operator << ( ostreamS os, const KFGNodeCS Node ) { 

□ 

os << Node. Name << M " « Node . ScopeLevel ; 
return os ; 



ffinclude "KFGTokenList . h" 
□ 



□ 
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void KFGTokenListC: : KFGListeAusgeben { } { 
□ 

of stream Ziel ( "CFGTokenList" ) ; 

□ 

ostream_iterator<KFGTokenNodeC> oPos(Ziel, n \n n ); 

□ 

KFGTokenListC: : iterator I = begin () ; 

□ 

while (I != end { ) ) { 

//*oPos++ = I->getName(); 

*OPOS++ = *I; 

//cout « I->getName() « " " « I ->getScopeLevel [ ) « " " « 
>getTokenNodeType { ) « endl ; 

I++; 

} 

cout « " sized = " « sized « endl; 

} 



#include "KFGTokenNode . h" 
#include <iostream> 

ostream& operator « ( ostream& os, const KFGTokenNodeC& Node) { 

os « Node. Name « " " « Node . ScopeLevel << " " « Node . TokenNodeTvp 
" « Node . LineNumber << endl; 

return os; 

} 

# include "KFGUse. h" 
□ 

#include <iostream> 

ostream& operator « ( ostream& os, const KFGUseCS N6de){ 

os « "USE : » «- Node. Use « '■ » « Node .ScopeLevelU; 

return os; 



/* 

□ 

□ 
□ 



Main program to test C++ grammar and preprocessor 



□ 

^include "JLStr.h" 
D 

#include "tokens. h" 

a 

# include "DLGLexer.h" 
ffinclude "Buf f eredCPreParser . h" 
ffinclude "CPreToCPPBuf f er . h" 
# include " JLTokenBuf f er . h" 
ffinclude "CPPParserSym. h" 
ffinclude "KFGTokenList . h" 
ffinclude "KFGList . h" 
finclude "graph. h" 
ffinclude "AS_Slice.h" 
# include "uwggraph.h" 
ffinclude "KFGProgList . h" 
finclude <iostream> 

static void usage (char* progname); 

int main(int argc, char *argv[]} 
{ 

// For reporting memory usage 
char *p = new char [ 100000 ] ; 
long heapl = ( long )( void* ) p; 
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delete [ ] p; 

// Parse command-line options 
JLStr includePath; 
JLStr definitions; 
FILE *inputFile = stdin; 
bool doTraceParse = false; 
bool doTracelnclude = false; 
bool doDump false; 
char *progname = * argv; 

argc — ; 
argv++ ; 

ofstream datei { "CodeLine . dat " , ios: :trunc) ; 

while (argc > 0) 
{ 

if (argvf 0] [0] == ■-' ) 
{ 

switch (argvfO] [ 1] } 
{ 

case 1 1 * : 

if (argv[0) [2] != 0) 

{ 

// argument is part of 

includePath +- *;'; 

includePath += &argv{0][2); 
} else if (argc > 1) 
{ 

argc — ; 
argv++; 

includePath += ';*; 
includePath = *argv; 
} else { 

usage (progname ) ; 

} 

break; 
case 1 d ' : 

if (strcmp (argv[ 0) , "-dump") == 0) 

{ 

do Dump = true; 

} 

break; 
case 1 D ' : 

if (argv| 0] [2] != 0) 
{ 

// argument is part of "-D" 

definitions += 1 ; ' ; 

definitions += &argv ( 0 ] [ 2 ) ; 
} else if (argc > 1) 
{ 

// argument follows "-D" 
argc — ; 
argv++ ; 

definitions +=»;•; 
definitions = *argv; 
} else { 

usage (progname ) ; 

} 

break; 
case * t 1 : 

if (strcmp ( *argv, "-t raceParse" ) == 0) 
{ 

doTraceParse = true; 
} else if (strcmp(*argv, "-tracelnclude" 
{ 

doTracelnclude = true; 
} else { 

usage (progname ) ; 

} 

break; 
default : 

usage (progname ) ; 
break; 

} 

} else { 

// must be the input filename 
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if {inputFile != stdin) 

{ 

// already have one 
usage {progname ) ; 

b } 

FILE *fp = fopen(*argv, "r" ); 
if { f p == NULL) 

1 n fprintf (stderr, "%s: cannot open %s for input\n", progname, *arqv); 

-LU exit(O); * 

} 

inputFile - fp; 

} 

argc — ; 
argv++; 

} 



15 



./ /print f{"%s\n%s\n%s\n", include Path, definitions , inputFile) ; 

20 // Create input stream, lexer 

DLGFilelnput input ( inputFile ) ; 
DLGLexer scanner ( fiinput ) ; 
FastToken tok; 
scanner . setToken ( &tok) ; 



25 



30 



35 



40 



50 



55 



60 



70 



75 



// Create preprocessor parser. Note that the preprocessor parser has 
//a built-in token buffer in the form of an input stack. 

Buf f eredCPreParser preprocessor ( iscanner] ; 

preprocessor. init { } ; 

// set include path and defines directly for debugging 
if ( includePath. length ( ) == 0) 

{ 

includePath = "c : \ \devstudio\ \vc\ \ include; \ \msdev\ \devstudio\ \vc\ \mfc\ \ include" 

; 

if (definitions . length ( ) == 0) 



definitions = 

" cplusplus; " 

" DATE =\"date\"; " 

" FI LE = \ " f i 1 e n ame \ " ; " 

" LINE =1; " 

" TIME_=\"time\"; » 

A (- " TIME STAMP =\"timestamp\"; " 

4 3 "_M_IX8 6=4 00;" 

" _MSC_VER= 1100;" 
"_WIN32; " 

"_INTEGRAL_MAX_BITS=64 " ; 



} 

// Set preprocessor options 

preprocessor . SetlncludePath ( includePath) ; 

preprocessor . SetDef init ions (definitions ) ; ' 

// Set options in parser to make it act standard with MS Extensions 
preprocessor. SetOption ( CPrePa rse rlmp : : OptMSExtens ions , true) ; 
preprocessor. SetOption (CPreParserlmp: :OptBool, true) ; 
preprocessor. SetOption (CPreParser Imp: :OptWCharT, true) ; 
preprocessor. SetOption < CPreParserlmp : : Opt Pragmas , true) - 
preprocessor . SetOption (CPreParserlmp: : OptExpandPragmas, ' t rue ) ; 
preprocessor. SetOption (CPreParserlmp: : OptTracklnclude, doTracelnclude ) - 



// Buffer to store tokens output by preprocessor 
^ CPreToCPPBuf fer pipe2 ( preprocessor ) ; 

// Connect preprocessor to second token buffer so thai- the 
// preprocessor can unilaterally squirt new tokens ir.-o the buff- 
preprocessor. SetBuf fer ( Spipe2 ) ; 



// Token buffer for the usual backtracking, etc. 
JLTokenBuffer pipe3 ( &pipe2 , CPPParserSym: : ConstLLK) ; 

// Create the C++ parser 
CPPParserSym parser ( &pipe3 ) ; 

// Set parser options to look like MSVC++ 

parser . SetOption ( CPPParserSym: : Opt PragmaMSPacking, true ) ; 
parser .SetOption (CPPParserSym: : OptMSTypede f Hack, true) ; 
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10 



15 



//preprocessor .doT race (doT race Parse ) ; 
parser . doTrace (doT race Parse ) ; 

// Process top-level rule 
parser . init ( ) ; 

KFGTokenListC LI; 

parser . trans la tion_unit ( LI ) ; 

// Close the input file stream 
if (inputFile != stdin) 

f close { input Fil e ) ; 



// For reporting memory usage 
// For reporting memory usage 
p = new char [ 100000 ] ; 
20 long heap2 = ( long )( void* ) p; 

delete [] p; 

cout << "Approx heap usage before dump: 



" « (heap2 - heapl ) « endl; 



30 



if (do Dump) 

{ 

// Dump the scope hierarchy 

cout << "Dump of scope hierarchy" << endl; 
parser. DumpScopes { ) ; 
cout « endl; 

} 



35 



40 
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// For reporting memory usage 
// For reporting memory usage 
p = new char [ 100000] ; 
long heap3 = (long) (void*)p; 
delete ( ) p; 

cout << "Approx heap usage after dump: 

LI . KFGListeAusgeben ( ) ; 

// LI . KFGTokenListToKFGList ( ) ; 

KFGListC L2; 

//KFGListC: : iterator Iter; 
L2 . TokenList2KFGList ( LI ) ; 
L2 . ListeAusgeben ( ) ; 

SliceC Slice; 

Slice . startBuildSlice ( L2 ) ; 
//Slice . buildTestGraph ( L2 ) ; 
//cout « Slice; 

uwgg raphe uwgg r aph ; 
//uwggraph .build I fTree (Slice ) ; 
uwggraph . startBuildFT ( Slice ) ; 
cout << uwggraph; 

return 0; 



« (heap3 - heapl) « endl; 
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static void usage (char* progname) 



fp 



ofils 



[-D definitions] { -t raceParse ] { -t racelnclude 1 [ -o 



rintf ( 
stder r , 

"usage: %s [-1 directories] 
] [ifile]\n n 
" -I directories: semicolon-separated list 
" -D definitions: semicolon-separated list 
" symboll ; symbol2=value2\n" 

" -traceParse: output debugging inf ormation\n" 
" -t racelnclude : output trace of include stack\n" 
" -dump: dump type and scope hierarchy\n" 
" ifile: name of input file (otherwise it uses stdin) \n 
progname 

sxit (1) ; 



of include di rectoriesXn* 1 
of definitions, like:\n" 



) ; 



^include <iostream> 
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Include <iterator> 
include <algorithjm> 
include <f stream> 
s include "uwggraph. h" 

using namespace std; 

SliceC: : iterator uwggraphC : : f indOutputNode { Six ceC & SI } { 
int dummy = 0; 

SliceC: : iterator SL1 = SI. begin (); 

SliceC: : iterator HELP = Sl.begin(); 

while {{SL1 != Sl.end()) && (dummy != 1)) { 

if { (*SL1 ). first. getKFGNodeType* ) == OP ) { 
HELP = SL1; 
dummy = 1; 

} 

SL1 ++; 

} 

return HELP; 



void uwggraphC: : startBuildFT {SliceC & SI ) { 
^3 int posl = 0; 

int Posil = 0; 

int SliceNr = 0; 

int LineNr = 0; 

int inLoop = 0; 
3 0 SliceAusgeben (SI ) ; 

char NodeText [ 128) ; 

char Bemerkung [ 1000 J ; 

SliceC: : iterator SL1 = f indOutputNode ( SI ) ; 
SliceNr = ( *SL1 ). first . getKnotenNummer {) ; 
LineNr ~ ( + SL1 ). first . getLineNr () ; 
sprintf (NodeText, "Op%d" , SliceNr ) ; 
strcpy (Bemerkung, SLl->fi rst .getCodeLine ( ) ) ; 
//sprintf (Bemerkung, "Line %d", LineNr) ; 

SliceC: :Nachfolger: :iterator BEGIN = ( *SL1 ). second . begin () ; 
SliceC: :Nachfolger: : iterator END — (*SL1) .second. end{ ) ; 
while (BEGIN != END) { 

if ( BEGIN-> second == KFK ) { 

uwgknotenC hknotenl ( EFFECT, SI iceNr , NodeText , Bemerkung ) , 
Posil = insert (hknotenl ) ; 

SliceC: iterator SLPUSE = f indLast PUse ( SI , SliceNr); 
checkLoopOrCond(Sl, SLPUSE, SL1, Posil); 
inLoop = 1; 
BEGIN++; 
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} 

else { 



} 
} 

if (inLoop ==0} { 



BEGIN++; 



uwgknotenC hknotenl (EFFECT, SliceNr , NodeText, Bemerkung ) ; 
uwgknotenC hknoten2 (OR, "OR" ) ; 
insert ( hknotenl , hknoten2 , 0} ; 
posl = size ( ) -1; 

^ n uwgknotenC hknoten3 (CAUSE, SI iceNr , NodeText , Bemerkung ) ; 

DU insert (hknoten2, hknoten3, 0 ) ; 



} 

check ( ) 



addFirstNodesToFT(Sl, SliceNr, posl), 
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SLORIgH^^ & S1 ' SliceC:: iterator SLPUSE , SliceC: : iterator 

7 0 int PosRet = 0; 

switch (SLPUSE->f irst . getKFGNodeType () ) { 
case IFC: 

PosRet = buildlnlfTreefSl, SLPUSE, SLORIG, Posl); 
7 c //cout « "Testla: " « SLHELP->f i rst . getKnotenNummer ( ) « endl; 

' J break; 

case LC: 

bui ldlnLoopTree (SI, Posl, SLPUSE, SLORIG); 

//cout « "Testlb: " « SLHELP->fi rst . getKnotenNummer ( ) « endl; 
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break; 
default : 

cout « "Ups" « endl; 

} 



void uwggraphC: : addFi rstNodesToFT ( SliceC & SI, int KnotenNr, int Posl) { 
int helpNr = 0; 
int ret = 0; 
int pos = 0; 
int KnotenNrl = 0; 
int LineNrl = 0; 
char NodeText [ 128] ; 
char Berne rkungt 1000] ; 

SliceC: : iterator NODE = def inelterator ( SI , KnotenNr); 
SliceC: :Nachfolger: : iterator BEGIN = NODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END = NODE->second . end ( } ; 
while (BEGIN != END) { 

helpNr = BEGIN->f irst; 

KnotenNrl = SI [ helpNr ). fi rst . getKnotenNummer () ; 

SliceC: : iterator NODE1 = def inelterator ( SI , KnotenNrl ) ; 

if <NODEl->first.getLevel ( ) > 1) { 

SliceC: : iterator PUSE = f indLastPUse ( SI , KnotenNrl), 
switch (PUSE->first.getKFGNodeType{ ) ) { 
case IFC: 

ret = bui Idlnl f Tree ( SI , PUSE, NODE1 , Posl ) ; 
break ; 
case LC: 

buildlnLoopTree (SI, Posl, PUSE,NODEl } ; 
break; 
default : 

cout << "Something is wrong! " << endl; 

} 



} 

else { 



} 

BEGIN++; 



LineNrl = SI E helpNr J . first . getLineNr () ; 

sprintf (NodeText, "Op%d" , KnotenNr 1 ) ; 

//sprint f ( Berne rkung, "Line %d" , LineNrl ) ; 

strcpy (Bemerkung, SI {helpNr] - first .getCodeLine ( ) ) ; 

uwgknotenC hknotenl (CAUSE, KnotenNrl , NodeText , Berne rkung } 

pos = insert ( hknotenl ) ; 

verbindeEcken { Posl , pos, 0 } ; 

addFi rstNodesToFT (SI, KnotenNrl, Posl); 



SliceC: : iterator uwggraphC :: f indLastPUse ( SI i ceC & SI, int SliceNr) { 
int helpNrl = 0; 
int SliceNrl = 0; 

SliceC: : iterator SL1 = def inelterator ( SI , SliceNr); 
SliceC: : iterator SLHELP = SL1; 

SliceC: :Nachfolger: : iterator BEGIN = ( *SL1 ). second . begin (} ; 
SliceC: :Nachfolger :: iterator END - ( *SL1 ). second . end () ; 
while { BEGIN != END) { 

if (BEGIN->second == KFK) { 

helpNrl = BEGIN->f i rst; 

SliceNrl = SI [ helpNrl ] .first . getKnotenNummer ( ) ; 
SLHELP = def inelterator ( SI, SliceNrl); 
SLHELP = f indLastPUse (SI, SliceNrl); 

} 

BEGIN++; 

} 

return SLHELP; 



SliceC: : iterator uwggraphC :: f indLast PUse2 ( SliceC & SI, int SliceNr, int RefNr) 
int helpNrl = 0; 
int SliceNrl = 0; 

SliceC: : iterator SLRETURN = def inelterator ( SI , SliceNr); 
SliceC: : iterator SLHELP = SLRETURN; 

SliceC: : Nachfolger: : iterator BEGIN = SLRETURN->second . begin () ; 
SliceC: rNachfolger: : iterator END = SLRETURN->second . end ( ) ; 
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while (BEGIN != END) { 

i f ( BEGIN ->second « KFK) { 

helpNrl = BEGIN -> f i rst; 

SliceNrl = SI [ helpNrl ) . first . get KnotenNummer () ; 
SLHELP = define Iterator (SI, SliceNrl); 
SLHELP = f indLastPUse2 (SI, SliceNrl, RefNr); 
if (SLHELP->first-getKnotenNummer ( ) != RefNr) { 
SLRETURN = SLHELP; 

} 

} 

BEG-IN++; 

} 

return SLRETURN; 



SI, SliceC: : iterator SNODE, Sli- 



SliceC: : iterator uwggraphC :: lookForNextPUse ( SliceC & 
ceC: : iterator SLPUSE) { 

int helpNrl = 0; 

int helpNr2 = 0 

int helpNr3 = 0 

int dummy = 0; 

int dummyl = 0; 

int KnotenNrl = 0; 

int KnotenNr2 = 0; 

int RefNr = SLPUSE->f i rst . getKnotenNummer ( ) ; 
SliceC: : iterator HELP = SNODE; 
SliceC: : iterator RETURN = SNODE; 

SliceC: rNachfolger: : iterator BEGIN1 = SNODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END1 = SNODE->second . end ( ) ; 
while C( BEGIN1 != END1) && (dummy != 1)){ 
helpNrl = BEGINl->f i rst ; 

SliceC: rNachfolger :: iterator BEGIN2 = SI [helpNrl ]. second . begin () ; 
SliceC: : Nachf oiger : : iterator END2 = SI [ helpNrl ]. second: end () ; 
while ( (BEGIN 2 != END2 ) && (dummyl != 1)} { 
if (BEGIN2->second =- KFK) { 

h e&pN r 2 =**BEG I N 2 - > f i r s t ; 

if (SI [helpNr2] . first. getKnotenNummer ( ) != RefNr) { 

■-KnotenNrl- « -Sl-[-helpNr2 ] . fi rst . getKnotenNummer ( ) ; 
' RE-TURN =' def*neIterator (SI, KnotenNrl ) ; 
SliceC: :Naeh forger: : iterator BEGIN3 = RETURN- 




>second . begin ( ) ; 
>second . end ( ) ; 

!= RefNr) { 

SI [ helpNr3 ] .first. getKnotenNummer ( ) , 
tenNr2, RefNr); 



SliceC:>:Nachf olger : : iterator END3 = RETURN- 

while (BEGIN3 != END3 ) { 

if (BEGIN3->second == KFK) { 

helpNr3 = BEGIN3-> first; 

if (Sl[helpNr3] . first . getKnotenNummer ( ) 



KnotenNr2 



RETURN 



f indLast PUse2 (SI , Kno 




} 

el; 



} 

BEGIN3++; 

} 

dummyl = 1 ; 
dummy = 1 ; 

e { 

KnotenNrl = SI [helpNrl ). first . getKnotenNummer () ; 
HELP = def inelterator (SI, KnotenNrl); 

RETURN = lookForNextPUse ( SI, HELP, SLPUSE); 



} 

BEGIN2++; 



} 

BEGIN1++; 

} 

return RETURN; 



SliceC: : iterator uwggraphC :: returnCondNode ( Sli ceC & SI, int SlicsNr) { 
int helpNr = 0; 
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int dummy = 0; 
int dummy2 = 0; 
int SliceNr2 = 0; 

Sliced : iterator SL1 = def inel terator ( SI , SliceNr); 
5 SliceC: : iterator HELP = SL1; 

SliceC: :Nachfolger: : iterator BEGIN = { *SL1 ). second . begin () ; 
SliceC: :Nachfolger: : iterator END = ( *SL1 ). second . end () ; 
while ((BEGIN != END) &fi (dummy != 1)) { 
helpNr = BEGIN-> first; 
10 SliceNr = SI {helpNr] . first .getKnotenNummer () ; 

HELP = def inel terator ( SI , SliceNr); 

SliceC: : Nachfolger: : iterator BEGIN2 = ( *HELP ) . second . begin ( ) ; 
SliceC: rNachfolger: : iterator END2 = ( *HELP) . second . end () ; 
while { (BEGIN2 != END2) && (dummy2 != 1)} / 
15 if ( ( *BEGIN2 ) . second == KFK) { 

helpNr = ( * BEGIN ) . f i rst ; 

SliceNr2 = SI [ helpNr ]. first . getKnotenNummer () ; 
HELP = def inel terator (SI, SliceNr2); 
dummy2 = 1; 

2 0 dummy = 1 ; 

} 

BEGIN2++; 

} 

BEGIN++; 

} 

return HELP; 



//Funktion untersucht, ob zwei Kont rol lstrukturen geschachtelt sind oder nicht. 
int uwggraphC: :checkPUsesl (SliceC & SI, SliceC :: iterator SLPUSEREF, SliceC: : iterator 
SLPUSE) { 

int helpreturn = 0; 

int KnotenNummerRef = 0; 

3 5 int helpNrl = 0; 

int KnotenNrl = 0; 

KnotenNummerRef = SLPUSE->fi rst . getKnotenNummer () ; 

SliceC: rNachfolger :: iterator BEGIN1 = SLPUSEREF->second . begin () ; 
A _ SliceC: : Nach^olge.r : : iterator END1 = SLPUSEREF->second . end ( ) ; 

4 0 while (BEGIN1 f= END1 ) { 

if (BEGINl->second == KFK) { 

helpNrl = BEGINl->f i rst; 

KnotenNrl = SI [ helpNrl ] .first . getKnotenNummer ( ) ; 
if (KnotenNrl == KnotenNummerRef) { 
helpreturn = 1; 



45 



else { 




SLPUSEREF = definelterator (SI, KnotenNrl ) ; 
helpreturn = checkPUsesl ( SI , SLPUSEREF, SLPUSE ) ; 



BEGIN1++; 

} 

return helpreturn; 
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int uwggraphC: :checkPUses2 (SliceC & SI, SI iceC :: iterator SLPUSEREF, SliceC: : if erafor 
SLPUSE) { " 
int helpreturn = 0; 
int KnotenNummerRef = 0; 
int helpNrl = 0; 
int KnotenNrl = 0; 
65 KnotenNummerRef = SLPUSEREF->f irst . getKnotenNummer () ; 

SliceC: :Nachfolger: : iterator BEGIN1 = SLPUSE->second . begin () ; 
SliceC: :Nachfolger: : iterator END1 = SLPUSE->second . end ( ) ; 
while (BEGIN1 != END1 ) { 

if (B£GINl->second == KFK) { 

helpNrl = BEGINl-> first; 

KnotenNrl = SI [helpNrl ). first . getKnotenNummer () ; 
if (KnotenNrl == KnotenNummerRef) { 
helpreturn = 1; 

} 

else { 

SLPUSE = definelterator (SI, KnotenNrl ) ; 
^ helpreturn = checkPUses2 ( SI , SLPUSEREF, SLPUSE ) ; 



70 
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} 

BEGIN1++; 



} 

return helpreturn; 



int uwggraphC: : buildlnl f Tree (SliceC & SI, SliceC: : iterator SLIF, SliceC: : iterator SLORIG, 
10 int posl) { 

int pos2 = 0; 

int posl FOR =0; 

int posIFDFOR = 0; 

int posIFKFOR = 0; 
15 int posIFDFORA2 = 0; 

char NodeText [128] ; 

char Bemerkung [ 1000] ; 

int KnotenNr = SLIF->f irst . get Knot enNummer ( ) ; 

int LineNr = SLI F->f i rst . getLineNr ( ) ; 
20 sprintf (Bemerkung, "Verzweigung ( %d )", LineNr ) ; 

strcpy(NodeText, SLIF->first .getCodeLine ( ) ) ; 

uwgknotenC hknotenl (OR, NodeText , Bemerkung ) ; 

pos2 = insert (hknotenl ) ; 

posIFOR = sized - 1; 
25 verbindeEcken (posl , pos2,0); 

sprintf (NodeText, "Ver zweigung_KF ( %d ) " , LineNr) ; 

uwgknotenC hknotenS ( OR, NodeText ) ; 

posl FK FOR = insert (hknotenS ) ; 

verbindeEcken ( pos2 , posl FKFOR, 0) ; 
30 build_IFKF_Part (SI, posl FKFOR, SLIF} ; 

switch (SLORIG->f irst.getKnotenldent ( ) ) ( 

case THEN: 
{ 

sprintf (NodeText, "Verzweigung_DF_Alt . 1 ( %d ) LineNr) ; 
35 uwgknotenC hknoten2 (AND, NodeText ) ; 

insert ( hknotenl , hknoten2 , 0 ) ; 

sprintf (Bemerkung, "Alt . 1 ( %d) LineNr) ; 

sprintf (NodeText, "Alt. 1 (%d) ", LineNr) ; 

uwgknotenC hknoten3 (CAUSE, NodeText, Bemerkung ) ; 
40 insert (hknoten2, hknoten3, 0) ; 

sprintf (NodeText, "Alt. 1 ( %d LineNr ) ; 

uwgknotenC hknoten4 ( OR, NodeText ) ; 

insert (hknoten2, hknoten4 , 0 ) ; 

posIFDFOR = sized - 1; 
45 build_Al_Part ( SI, posIFDFOR, SLIF, SLORIG); 

} 

break; 
case ELSE: 
{ 

50 sprintf (NodeText, "Verzweigung_DF_Alt . 2 ( %d ) " , LineNr) ; 

uwgknotenC hknoten2 (AND, NodeText ) ; 

insert ( hknotenl , hknoten2 , 0 ) ; 

sprintf (Bemerkung, "Alt. 2 ( %d) ", LineNr ) ; 

sprintf (NodeText, "Alt . 2 ( %d )", LineNr ) ; 
55 uwgknotenC hknoten3 ( CAUSE, NodeText , Bemerkung ) ; 

insert ( hknoten2 , hknoten3, 0 ) ; 

sprintf (NodeText, "Alt. 2 ( %d ) " , LineNr) ; 

uwgknotenC hknoten4 ( OR, NodeText ) ; 

insert { hknoten2 , hknoten4 , 0 ) ; 
60 posIFDFORA2 = sized - 1; 

build_Al_Part (SI, posIFDFORA2, SLIF, SLORIG); 

} 

break; 
default : 

65 cout « "Autsch!!!" « endl; 

} 

return posIFDFOR; 

} 

70 

void uwggraphC: :build_Al_Part (SliceC & SI, int posIFDFOR, SliceC :: iterator SLIF, Sli- 
ceC: : iterator SLNODE) { 

int posO = 0; 
75 int posl = 0; 

int ret - 0; 

int dummy = 0; 

int checkNr = 1; 
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15 



20 



30 



35 



40 



45 



50 



55 



60 



65 



70 



75 



int 


checkPUse 


= 1; 


int 


helpNrl = 


0; 


int 


helpNr2 = 


0; 


int 


KnotenNrO 


= 0; 


int 


KnotenNrl 


= 0; 


int 


KnotenNr2 


= 0; 


int 


LineNrO = 


0; 


int 


LineNrl = 


0; 



char NodeTextO [ 128 ] ; 
char BemerkungO [ 1000] ; 

KnotenNrO = SLNODE->f irst . getKnotenNummer () ; 
LineNrO = SLNODE->f i rst . getLineNr ( ) ; 
sprintf (NodeTextO, w Op%d M , Knot enNrO ) ; 
//sprintf (BemerkungO, "Line %d", LineNrO) ; 
strcpy (BemerkungO, SLNODE->f i rst . getCodeLine ( ) ) ; 
uwgknotenC hknotenO ( CAUSE, KnotenNrO, NodeTextO, BemerkungO ) ; 
posO = insert ( hknotenO ) ; 
verbindeEcken (posIFDFOR, posO, 0} ; 

SliceC: :Nachfolger: : iterator BEGIN0 = SLNODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END0 = SLNODE->second . end ( ) ; 
while (BEGIN0 != END0 ) { 

if (BEGIN0->second == DFK) { 

helpNrl = BEGIN0->f i rst ; 

KnotenNrl = SI ( helpNrl ] . first. getKnotenNummer ( ) ; 
SLNODE = def inel terator ( SI , KnotenNrl ) ; 
if (KnotenNrl < KnotenNrO) { 

SliceC: :Nachfolger: : iterator BEGIN1 = SLNODE->second . begin () j 
SliceC: rNachfolger: : iterator END1 = SLNODE->second . end { ) ; 
while (BEGIN1 != END1 ) { 

if {BEGINl->second == KFK) { 

helpNr2 = BEGINl->f i rst; 
KnotenNr2 = 



SI [helpNr2] . fi rst . getKnotenNummer ( ; 
tor (Sl,KnotenNr2) ; 

{ 

sesl (S1,SLIF,HELPPUSE) ; 
ses2 ( SI , SLIF, HELPPUSE ) ; 



SliceC: : iterator HELPPUSE = defineltera- 

checkNr = checkUWGNode ( KnotenNr2 ) ; 

if (SLIF->f irst . getKnotenNummer ( ) > KnotenNr2) 

checkPUse = checkPU- 



else { 



} 



checkPUse = checkPU- 



se ( SI , HELPPUSE ) ; 

>f irst .getKFGNodeType ( ) ) { 

sIFDFOR, HELPPUSE, SLNODE); 
HELPPUSE, SLNODE, posIFDFOR); 



if (KnotenNr2 != SLIF->fi rst . getKnotenNummer () ) 

if (checkPUse ==0) { 
dummy = 1 ; 

HELPPUSE = f indOutmostPU- 

switch (HELPPUSE- 

case LC: 

buildlnLoopTree (SI, po- 

break; 
case IFC: 

ret = buildlnlfTree (SI, 



break; 



default: 



Al ! 



« endl; 



} 

else 



PUse (SI, HELPPUSE) ; 

>f irst . getKFGNodeType () ) { 

buildlnLoopTree (SI, posIFDFOR, HELPPUSE, SLNODE); 



cout « "Falscher Weg in 



if (checkNr == 0) { 
dummy = 1 ; 

HELPPUSE = findOutmost- 
switch (HELPPUSE- 
case LC: 



break ; 
zase IFC: 
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ret - buildlnlf- 

Tree(Sl, HELPPUSE, SLNODE, posIFDFOR); 

breaks- 
default : 

cout « "Falscher 

Weg! " « endl; 



} 

BEGIN1++; 

} 

i f { dummy == 0 ) { 

LineNrl - SI [ helpNrl ). first . getLineNr {) ; 
sprintf (NodeTextO, "Op%d" , KnotenNrl ) ; 
//sprintf (BemerkungO, "Line %d", LineNrl ) ; 
strcpy(BemerkungO, SI IhelpNrl] . f i rst . getCodeLine { ) J ; 
uwgknotenC hkno- 
tenl (CAUSE, KnotenNrl, NodeTextO, BemerkungO) ; 

posl = insert ( hknotenl ) ; 
verbindeEcken (posIFDFOR, posl, 0 ) ; 
build_Al_Part (SI, posIFDFOR, SLIF, SLNODE } ; 



} 



} 

BEGIN0++; 
dummy = 0; 



void uwggraphC: : bui ld_I FKF_Pa rt (SliceC & SI, int posKFOR, Sli ceC :: iterator SLPUSE) { 
int posl = 0; 
int ret = 0; 
int dummy = 0; 
int checkNr - 1; 
int checkPUse = 1; 
int helpNrl = 0; 
int helpNr2 = 0; 
int KnotenNrO = 0; 
int KnotenNrl = 0; 
int KnotenNr2 = 0; 
int LineNrO = 0; 
int LineNrl = 0; 
char NodeText [ 128] ; 
char Bemerkung [ 1000] ; 

KnotenNrO = SLPUSE->f i rst . getKnotenNummer ( ) ; 
LineNrO = SLPUSE->f irst . getLineNr ( } ; 
sprintf (NodeText, "Op%d M , KnotenNrO ) ; 
//sprintf ( Bemerkung, "Line %d" , LineNrO ) ; 
strcpy ( Bemerkung, SLPUSE->f irst . getCodeLine ( ) ) ; 
uwgknotenC hknotenl ( CAUSE, KnotenNrO, NodeText , Bemerkung ) ; 
posl = insert (hknotenl ) ; 
verbindeEcken (posKFOR, posl , 0) ; 

SliceC: :Nachfolger :: iterator BEGIN0 = SLPUSE->second . begin (} ; 
SliceC: :Nachfolger: : iterator END0 = SLPUSE->second . end ( ) ; 
while (BEGIN0 != END0) { 

if (BEGIN0->second == DFK) { 

helpNrl = BEGIN0->f i rst ; 

KnotenNrl = SI [ helpNrl } . first. getKnotenNummer ( ) ; 
SliceC: : iterator SLNODE = define Iterator ( SI , KnotenNrl ) ; 
if (KnotenNrl < KnotenNrO} { 

SliceC: rNachfolger :: iterator BEGIN1 = SLNODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END1 = SLNODE->second . end ( ) ; 
while (BEGIN1 != END1 ) { 

if (BEGINl->second == KFK) { 

helpNr2 = BEGINl-> f i rs t ; 
KnotenNr2 = 

SI [helpNr2] . fi rst . getKnotenNummer ( ) ; 

SliceC: : iterator HELPPUSE = defineltera- 

tor (Sl,KnotenNr2) ; 

checkNr = checkUWGNode ( KnotenNr2 ) ; 

if (SLPUSE->f irst . getKnotenNummer ( ) > Kno- 

tenNr2) { 

checkPUse = checkPU- 

sesl ( SI, SLPUSE, HELPPUSE) ; 

} 
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ses2 ( SI , SLPUSE, HELPPUSE ) ; 
>first.getKnotenNuinmer ( ) ) { 

se (SI, HELPPUSE); 

>f irst.getKFGNodeType ( ) ) { 

posKFOR, HELPPUSE, SLNODE ) ; 
HELPPUSE, SLNODE, posKFOR) ; 
Al! H « endl; 



71 

else 

} 



checkPUse = checkPU- 



if (KnotenNr2 != SLPUSE- 

if (checkPUse ==0) { 
dummy - 1 ; 

HELPPUSE = f indOutmostPU- 

switch (HELPPUSE- 

case LC: 

buildlnLoopTree ( SI , 

break; 
case IFC: 

ret = bui ldlnl f Tree ( SI , 



break; 



default : 



cout « "Falscher Weg in 



else { 



PUse (SI f HELPPUSE) ; 
>first.getKFGNodeType ( ) ) { 

buildInLoopTree(Sl, posKFOR, HELPPUSE, SLNODE); 
TreetSl, HELPPUSE, SLNODE, posKFOR); 
Weg! " « endl; 



if (checkNr ==0) { 
dummy = 1 ; 

HELPPUSE = findOutmost- 
switch (HELPPUSE- 
case LC: 



break; 
case IFC: 

ret = buildlnlf- 



break; 



default : 



cout << "Falscher 



BEGIN1++; 



} 



if (dummy ==0) { 

LineNrl = SI ( helpNrl ) . f i rst . getLineNr ( ) ; 
sprintf (NodeText, H Op%d" , KnotenNrl ) ; 
// sprint f ( Berne rkung, "Line %d", LineNrl ) ; 
strcpy(Bemerkung, SI [helpNrl ] . f i rst . getCodeLine ( ) ) , 
uwgknotenC hkno- 
tenl (CAUSE, KnotenNrl, NodeText, Bemerkung) ; 

posl » insert (hknotenl ) ; 
verbindeEcken (posKFOR, posl , 0) ; 
build_IFKF_Part (SI, posKFOR, SLNODE); 

} 

} 

} 

BEGIN0++; 
dummy = 0; 



void uwggraphC: : bui IdlnLoopTree ( SliceC & SI, int Posl, SliceC: : iterator SLPUSE Sli- 
ceC: : iterator SLNODE) { 

int posil = 0; 

int pos3 = 0; 

int posLOOP_KF = 0; 

int posOR_Dl - 0; 

int posOR_D2 = 0; 

int posAND_KF = 0; 

int SliceNr = 0; 
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int NodeNrD2 = 0; 
int KnotenNr = 0; 
int LineNr = 0; 

KnotenNr = SLPUSE->f irst . getKnotenNummer ( ) ; 
5 LineNr = SLPUSE->f irst . getLineNr { ) ; 

char NodeText ( 128 ] ; 
char Bemerkung [ 1000J ; 

sprintf (Bemerkung, "Schlei f e ( %d ) M f KnotenNr) ; 
strcpy (NodeText, SLPUSE->f irst .getCodeLine ( ) ) ; 
10 uwgknotenC hknotenl (OR, NodeText, Bemerkung) ; 

posil = insert (hknotenl ) ; 
verbindeEcken ( Posl,posil, 0) ; 

sprintf (NodeText, "Schleif e_DF_Durchl . 1 ( %d) ", LineNr ) ; 
uwgknotenC hknoten2 (AND, NodeText ) ; 
1 5 sprintf (NodeText, "Schlei fe_DF_Durchl .+( %d )", LineNr > ; 

uwgknotenC hknoten3 (AND, NodeText } ; 
pos3 = insert (hknoten3) ; 
verbindeEcken (posil,pos3, 0) ; 

sprintf (NodeText, "Schlei fe_KF ( %d ) ", LineNr ) ; 
20 uwgknotenC hknoten4 ( OR, NodeText ) ; 

insert (hknotenl, hknoten2, 0) ; 
insert (hknotenl , hknoten4 , 0 ) ; 
posLOOP_KF = size{) - 1; 

sprintf (Bemerkung, "Durchl . 1 (%d) LineNr ) ; 

2 5 sprintf (NodeText, "Durchl. 1 (%d)", LineNr) ; 

uwgknotenC hknotenS (CAUSE, NodeText, Bemerkung ) ; 
sprintf (NodeText, "Durchl . 1 (%d) LineNr) ; 
uwgknotenC hknoten6 ( OR, NodeText ) ; 
insert (hknoten2, hknotenS, 0) ; 

3 0 insert (hknoten2, hknoten6, 0) ; 

posOR_Dl = sized - 1; 

sprintf (Bemerkung, "Durchl . + ( %d ) ", LineNr) ; 
sprintf (NodeText, "Durchl . + ( %d) " , LineNr) ; 
uwgknotenC hknoten7 { CAUSE, NodeText, Bemerkung ) ; 

3 5 sprintf (NodeText, "Durchl. + ( %d ) " , LineNr) ; 

uwgknotenC hknoten8 (OR, NodeText ) ; 
insert ( hknoten3, hknoten7 , 0 ) ; 
posOR_D2 = insert (hknoten8 ) ; 
verbindeEcken (pos3, posOR_D2,0); 

4 0 sprintf (NodeText, "KF ( %d )", LineNr ) ; 

uwgknotenC hknoten9 (AND, NodeText ) ; 
insert ( hknoten4 , hknoten9, 0 ) ; 
insert ( hknoten3, hknotenS, 0 J ; 
posAND_KF = sized - 1; 
insert ( hkno ten 9, hknotenS, 0 ) ; 

NodeNrD2 = buildIn_LoopKF_ANDPart { SI, posAND_KF, SLPUSE); 
buildIn_LoopKF_ORPart (SI, posLOOP_KF, SLPUSE, NodeNrD2); 
//buildIn_D2_Part (SI, posOR_D2, SLPUSE, SLNODE, NodeNrD2 } ; 
buildIn_Dl_Part (SI, posOR_Dl, SLPUSE, SLNODE, NodeNrD2); 
build!n_D2_Part (SI, posOR_D2, SLPUSE, SLNODE, NodeNrD2); 



45 



50 



55 void uwggraphC: : bui ldIn_Dl_Part ( SliceC & SI, int posOR_Dl, SliceC: : iterator SLPUSE, Sli- 
ceC: : iterator SLNODE, int D2_RefNr) { 

int posl — 0; 

int ret = 0; 

int KnotenNrl = 0; 
60 int LineNrl = 0; 

SliceC: : iterator ITER1 = f ind_Dl_Node ( SI , SLPUSE, SLNODE); 

SliceC: :iterator HELP = ITER1; 

switch ( ITERl->first .getKFGNodeType ( ) ) { 

case IFC: 

65 HELP - find_Dl_Node(Sl, ITER1, SLNODE); 

ret = bui ldlnlf Tree (SI, ITER1, HELP, posOR_Dl ) ; 
break; 
case LC: 

HELP = find_Dl_Node(Sl, ITER1, SLNODE); 
buildlnLoopTree (SI, posOR^Dl, ITER1, SLNODE ) ; 
break; 
default : 

addAUDlNodes ( SI , ITER1 , posOR__Dl , D2_RefNr ) ; 

75 ) 1 



70 
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SliceC: : iterator uwggraphC : : f ind_Dl_Node ( SliceC & SI, SI iceC :: iterator SLPUSE, Sli 
ceC: : iterator SLNODE) { 

int helpNrl = 0; 

int helpNr2 = 0; 

int dummyl = 0; 

int dummy2 = 0; 

int KnotenNrRet = 0; 

int KnotenNrRetl = 0; 

int PUseNr = SLPUSE->f i rst . getKnotenNumrner ( ) ; 
int PUseLevel = SLPUSE->f i rst . getLevel ( ) ; 
SliceC: : iterator RETURNITER = SLNODE; 
KnotenNrRetl = SLNODE->fi rst . getKnotenNummer ( J ; 
if (KnotenNrRetl == (PUseNr +1)) { 

RETURNITER = def inelterator (SI , KnotenNrRetl ) ; 

dummyl - 1 ; 

dummy2 = 1 ; 

} 

SliceC: :Nachfolger: riterator BEGIN1 = SLNODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END1 = SLNODE->second . end ( ) ; 
while ( (BEGIN1 != END1 ) && (dummyl != 1)) { 
helpNrl = BEGINl-> first; 

if ( (SI [ helpNrl] . fi rst . getKnotenNummer ( ) > PUseNr) && 
{SI {helpNrl ]. first . getLevel ( ) >*= PUseLevel)) { 

if (SI [helpNrl J . f i rst . getLevel ( ) > PUseLevel) { 

KnotenNrRetl = SI [ helpNrl ]. fi rst . getKnotenNumme r () ; 
if (KnotenNrRetl == (PUseNr +1)) { 

RETURNITER = def inelterator { SI , KnotenNrRetl ) ; 
dummyl = 1 ; 
dummy 2 = 1 ; 

} 

SliceC: :Nachfolger: : iterator BEGIN2 = 

SI [ helpNrl ] . second . begin ( ) ; 

SliceC: :Nachfolger: : iterator END2 - SI [ helpNrl ] . second 
while ( (BEGIN2 != END2 ) && (dummy2 != 1)) { 
if ( BEGIN2->second == KFK) { 

helpNr2 = BEGIN2->f i rst ; 



SI {helpNr2 ] . first . getKnotenNummer ( ) ; 
tor (SI, KnotenNrRet} ; 



KnotenNrRet = 

if (KnotenNrRet != PUseNr) { 

RETURNITER = defineltera- 

dummyl = 1 ; 
dummy2 = 1 ; 



} 

BEGIN2++; 

} 

} 

else { 

KnotenNrRet = SI ( helpNrl ] . first . getKnotenNummer ( } ; 
RETURNITER = de f inelterator ( SI , KnotenNrRet } ; 
dummyl = 1 ; 

} 

} 

BEGIN1++; 

} 

if ((RETURNITER == SLNODE) && (dummyl ==0)) { 
BEGIN1 = SLNODE->second. begin () ; 
while { BEGIN1 != END1 ) { 

helpNrl = BEGINl->f i rst; 

KnotenNrRet = SI [ helpNrl ]. fi rst . getKnotenNummer () ; 
SliceC: : iterator SLNODE = def inelterator (SI, KnotenNrRet ) ; 
RETURNITER = f ind_Dl_Node ( SI , SLPUSE, SLNODE); 
BEGIN1++; 

} 

} 

return RETURNITER; 



void uwggraphC: : buildIn_D2_Part (SliceC & SI, int posOR D2, SliceC: : iterator SLPUSE, 
ceC: : iterator SLNODE, int KnotenNrD2) { ~ 

int posl = 0; 

int pos2 = 0; 

int ret = 0; 

int helpNrl = 0; 

int helpNr2 = 0; 
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int KnotenNrl = 0; 

int LineNrl = 0; 

int KnotenNrD2Ret = 0; 

int USEinD2KnotenNr = 0; 

char Bemerkungl [ 1000 J ; 

char NodeTextl [128] ; 

SliceC: : iterator D2_NODE = def inelterato r ( SI , KnotenNrD2); 

KnotenNrl = D2_NODE->f i rst . getKnotenNummer ( ) ; 

LineNrl = D2_NODE->f irst . getLineNr () ; 

sprintf (NodeTextl, "Op%d" , KnotenNrl ) ; 

// sprint f (Bemerkungl , "Line %d", LineNrl ) ; 

st rcpy (Bemerkungl, D2_NODE->f i rst . getCodeLine ( ) ) ; 

uwgknotenC hknotenl ( CAUSE, KnotenNrl , NodeTextl , Bemerkungl ) ; 

posl = insert (hknotenl ) ; 

verbindeEcken (posOR_D2, posl, 0) ; 

SliceC: :Nachfolger: : iterator BEGIN1 = D2 JMODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END1 - D2_NODE->second . end ( ) ; 
while (BEGIN1 != END1 ) { 

if (BEGINl->second == DFK) { 

helpNrl = BEGINl->f i rst; 

KnotenNrl = SI [ helpNrl ]. fi rst . getKnotenNummer () ; 

LineNrl = SI [helpNrl ]. first . getLineNr [) ; 

sprintf (NodeTextl, "Op%d", KnotenNrl ) ; 

//sprintf (Bemerkungl, "Line %d" , LineNrl ) ; 

st rcpy ( Bemerkungl , SI [ helpNrl ] . first . getCodeLine ( ) ) ; 

uwgknotenC hknoten2 ( CAUSE, KnotenNrl , NodeTextl , Bemerkungl ) ; 

pos2 - insert (hknoten2) ; 

verbindeEcken ( posOR_D2 , pos2 , 0) ; 

SliceC: :Nachfolger: :iterator BEGIN2 = SI [ helpNrl ] . second . begin ( ) ; 
SliceC: :Nachfolger: iterator END2 = SI [ helpNrl ] . second . end ( ) ; 
while { BEGIN2 != END2 } { 

helpNr2 = BEGIN2-> first; 
if ( (BEGIN2->second -«* DFK) && 
(SI [helpNr2 ]. first . getKnotenNummer ( ) != KnotenNrD2)) { 

//Sliced : iterator SLNODE1 = defineltera- 

tor ( SI , KnotenNrl ) ; 

} / /buildIn_D2_Part ( SI , posOR, SLPUSE, SLNODE1 , KnotenNrD2 ) 

BEGIN2++; 

} 

} 

BEGIN1++; 

} 

SliceC: : iterator USEinD2 = f ind_Dl_Node ( SI , SLPUSE, SLNODE); 
SliceC: : iterator HELP = USEinD2; 

if (USEinD2->first.getLevel ( ) > SLPUSE->f i rst . getLevel ( ) ) { 
USEinD2KnotenNr = USEinD2->fi rst . getKnotenNummer () ; 
KnotenNrD2Ret = f indD2Node ( SI , USEinD2 ) ; 
if (KnotenNrD2Ret == USEinD2KnotenNr ) { 

switch (USEinD2->f irst. getKFGNodeType ( ) ) { 
case IFC: 

HELP = find_Dl_Node (SI, USEinD2, SLNODE) ; 
//ret = buildlnlfTree ( SI , USEinD2 , HELP, posOR ) ; 
ret = buildD2InIfTree(Sl,USEinD2,HELP,posOR D2 ) ; 
break; ~ 
case LC: 

HELP = find_Dl_Node (SI, USEinD2, SLNODE) ; 
buildlnLoopTree ( SI , posOR_D2 , USEinD2, SLNODE ) ; 
breaks- 
default : 

cout « "Uups ! ! ! " « endl; 

} 

} 



int uwggraphC: ; ;:. ;:dD2Node ( SliceC & SI, SliceC: : iterator PU3E) { 
int d u rra\ y - 0 ; 
int helpNrl = 0; 
int helpNr2 = 0; 

int KnotenNrReturn = PUSE-> fi rst . getKnotenNummer () ; 
int PUSEKnotenNr = PUSE->f i rst . getK'notenNumme r ( ) ; 
SliceC: :Nachfolger: riterator BEGIN1 = PUSE->second . begi n ( ) ; 
SliceC: :Nachfolger: : iterator END1 = PUSE->second . end ( ) ; 
while ( ( BEGIN1 != END1 ) && (dummy != 1)) { 
if (BEGINl->second == DFK) { 

helpNrl = BEGINl->f i rst ; 
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SliceC: :Nachfolger: : iterator BEGIN2 = SI [ helpNrl ] . second . begin ( ) ; 
SliceC: rNachfolger: : iterator END2 = SI [ helpNrl j . second . end ( ) ; 
while ( { BEGIN2 END2 } && (dummy != !)){ 

if (BEGIN2->second == KFK) i 

helpNr2 = BEGIN2->f i rst; 

if (SI [helpNr2] . first. getKnotenNummer { ) PUSEKno- 

tenNr) { 



SI [ helpNr2 ] . first . getKnotenNummer ( ) ; 

} 

} 

BEGIN2++; 

} 

} 

BEGIN1++; 

} 

return KnotenNrReturn; 



Knot enNr Re turn 
dummy = 1 ; 



int uwggraphC: :buildIn_LoopKF_ANDPart (SliceC & SI, int posAND_KF, SliceC: : iterator SLPUSE) 

int pos = 0; 
int helpNrl - 0; 
int helpNr2 = 0; 
int RefPUse = 0; 
int KnotenNr = 0; 
int LineNr = 0; 
int dummy = 0; 
int dummyl = 0; 
char Bemerkung [ 1000 ] ; 
char NodeText f 128] ; 

RefPUse = SLPUSE->fi rst . getKnotenNummer () ; 

SliceC: :Nachfolger: : iterator BEGIN = SLPUSE->second . begin () ; 
SliceC: :Nachfolger: : iterator END = SLPUSE->second . end ( } ; 
while ((BEGIN != END) && (dummyl 1)) { 

if ( BEGIN- >s econd == DFK) { 

helpNrl = BEGIN->f i rst ; 

SliceC: rNachfolger :: iterator BEGIN2 = SI [ helpNrl J . second . begin ( ) ; 
SliceC: :Nachfolger: : iterator END2 = SI [ helpNrl ) . second . end ( ) ; 
while ( (BEGIN2 != END2 ) && (dummy != 1)) { 
if (BEGIN2->second == KFK) { 

helpNr2 = BEGIN2->f i rst ; 

if ( SI [ helpNr2 ]. first . getKnotenNummer ( ) == RefPUse) { 
KnotenNr = SI ( helpNrl ] . f i rst . getKnotenNummer ( ) 
LineNr = SI [ helpNrl ] . f i rst . get LineNr { ) ; 
sprint f (NodeText, "Op%d" , KnotenNr ) ; 
//sprintf (Bemerkung, "Line %d", LineNr ) ; 

strcpy (Bemerkung, SI [helpNrl ] . first . getCodeLine ( ) ) ; 

uwgknotenC hkno- 

ten (CAUSE, KnotenNr, NodeText , Bemerkung ) ; 

pos = insert (hknoten) ; 
verbindeEcken{posAND_KF,pos, 0) ; 
dummy = 1 ; 
dummyl = 1; 

} 

i 

BEGIN2++; 



} 

} 

BEGIN++ ; 

} 

return KnotenNr; 



void uwggraphC: : bui ldIn_LoopKF_ORPa r t (SliceC & SI, int posLOOP KF, Slic-C • - ii-«raf. 
int KnotenNrD2) { ~ 

int posl = 0; 

int pos2 = 0; 

int helpNrl = 0; 

int helpNr2 = 0; 

int KnotenNr = 0; 

int KnotenNrl = 0; 

int LineNr = 0; 
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int LineNrl = 0; 
char NodeText [ 128 ] ; 
char Bemerkung [ 1000] ; 

KnotenNr - SLl->f i rst . getKnotenNummer ( ) ; 

LineNr = SL1 ->f i rst . getLineNr ( ) ; 

sprintf (NodeText, n Op%d" , KnotenNr ) ; 

//sprintf (Bemerkung, "Line %d", LineNr ) ; 

strcpy ( Bemerkung, SLl->f i rst . getCodeLine ( ) ) ; 

uwgknotenC hknotenl (CAUSE, KnotenNr, NodeText, Bemerkung ) ; 

posl - insert ( hknotenl } ; 

verbindeEcken (posLOOP_KF,posl, 0) ; 

SliceC: :Nachfolger: :iterator BEGIN = SL1 ->second . begin () ; 
SliceC: :Nachfolger: : iterator END = SL1 ->second . end ( } ; 
while (BEGIN != END) { 

if (BEGIN->second == DFK) { 

helpNrl = BEGIN->first; 

KnotenNrl = SI ( helpNrl ]. first . getKnotenNummer () ; 
if (KnotenNrl != KnotenNrD2) { 

LineNrl = SI [helpNrl ]. first . getLineNr () ; 

sprintf (NodeText, "Op%d" , KnotenNrl ) ; 

//sprintf (Bemerkung, "Line %d", LineNrl ) ; 

strcpy (Bemerkung, SLl->first. getCodeLine ( ) ) ; 

uwgknotenC hknotenl (CAUSE, KnotenNrl, NodeText , Bemerkung ) ; 
posl = insert (hknotenl ) ; 
verbindeEcken {posLOOP_KF, posl, 0} ; 

SliceC: iterator NEXTNODE = def inelterator ( SI, KnotenNrl ) ; 
SliceC: rNachfolger: : iterator BEGIN2 = NEXTNODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END2 = NEXTNODE->second . end ( ) ; 
while (BEGIN2 != END2 ) { 

if (BEGIN2->second == DFK) { 

helpNr2 = BEGIN2->f i rst ; 

if ( NEXTNODE -> first . getKnotenNummer ( ) != KnotenNrD2) { 
build!n_LoopKF_ORPart (SI, posLOOP_KF, NEXTNODE, 



} 

} 

BEGIN2++; 



} 

BEGIN+4 



of ^; f J ^ r ^ hC::addA11D1Nodes ( S li"C fi Si, SliceC:: iterator SLNODE, int posGatter, int 

int posl = 0; 

int ret = 0; 

int checkNr = 1; 

int helpNrl = 0; 

int helpNr2 = 0; 

int SliceNr2 = 0; 

int KnotenNrO = 0; 

int KnotenNrl = 0; 

int KnotenNr2 = 0; 

int LineNrl = 0; 

int LineNrO = 0; 

char Bemerkungl [ 1000] ; 

char NodeText 1 [ 128] ; 

KnotenNrO = SLNODE->fi rst . getKnotenNummer () ; 
LineNrO = SLNODE->fi rst . getLineNr () ; 
sprintf (NodeTextl, ,, Op%d" , KnotenNr 0 ) ; 
//sprintf (Bemerkungl, "Line %d", LineNrO) ; 
strcpy ( Bemerkungl , SLNODE->f i rst . getCodeLine ( ) } ; 

uwgknotenC hknotenl ( CAUSE, KnotenNrO, NodeTextl , Bemerkungl ) • 
posl = insert (hknotenl ) ; 
verbindeEcken (posGatter, posl, 0) ; 

SliceC: :Nachfolger: : iterator BEGIN1 = SLNODE->second . begin () ; 
SliceC: : Nachfolger : iterator END1 = SLNODE->second end ( i ■ 
while ( BEGIN1 != END1 ) { 

if (BEGINl->second DFK) { 

helpNrl = BEGINl->f i rst ; 

KnotenNrl = SI [ helpNrl ]. fi rst . getKnotenNummer () ; 
SLNODE = def inelterator (SI, KnotenNrl ) ; 

if ((KnotenNrl != D2_RefNr) && (KnotenNrl != KnotenNrO)) { 
^ SliceC: :Nachfolger: : iterator BEGIN2 = 

ol [helpNrl ] . second. begin ( ) ; 
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SliceC: :Nachfolger: : iterator END2 = SI [ helpNrl ] . second . end ( ) ; 
while (BEGIN2 != END2 ) { 

if (BEGIN2->second == KFK) { 

helpNr2 = BEGIN2->f i rst ; 

SliceNr2 = SI [ helpNr2 ] . f i rst . getKnotenNummer ( ) 
SliceC: : iterator HELPPUSE = def inelterator ( SI , 

SliceNr2) ; 

checkNr = checkUWGNode ( SliceNr2 ) ; 
if (checkNr ==0) { 

SliceC: : iterator HELP1 = f indOutmost PU- 

se (SI, HELPPUSE) ; 

switch (HELPl->f irst . getKFGNcdeType ( ) } 

1 

case LC: 

buildlnLoopTree ( SI , posGatter, 

HELPPUSE, SLNODE); 

break; 
case IFC: 

ret = buildlnlf- 

Tree (SI, HELPPUSE, SLNODE, posGatter ) ; 

break; 
default : 

cout << "Falscher Weg! n « 

endl ; 

i 

/ 

} 

} 

BEGIN2++; 

} 

if (checkNr == 1 ) { 

LineNrl = SI [ helpNrl ]. first - getLineNr () ; 
sprintf (NodeTextl, "Op%d" , KnotenNrl ) ; 
//sprintf (Bemerkungl, "Line %d", LineNrl ) ; 
strcpy (Bemerkungl, SI [helpNrl] . fi rst . getCodeLine ( ) ) ; 
uwgknotenC hkno- 
ten2 (CAUSE, KnotenNrl, NodeTextl, Bemerkungl ) ; 

posl - insert (hknoten2 ) ; 
verbindeEcken (posGatter , posl , 0 ) ; 
addAUDlNodes ( SI , SLNODE, posGatter , D2 RefNr } ; 

} 

} 

} 

BEGIN1++; 

} 

} 



int uwggraphC: : bui ldD2InI f Tree (SliceC & SI, SliceC: : iterator SLIF, SliceC :: iterator SLORIG, 
int posl) { 

int pos2 = 0; 

int posIFOR = 0; 

int posIFDFOR = 0; 

int posIFKFOR = 0; 

int posIFDFORA2 = 0; 

char NodeText [ 128 ] ; 

char Bemerkung [ 1000] ; 

int KnotenNr = SLIF->f irst . getKnotenNummer (> ; 
int LineNr = SLIF->fi rst . getLineNr () ; 
sprintf (NodeText, "Verzweigung_D+ ( %d )", KnotenNr ) ; 
strcpy ( Bemerkung, SLIF->fi rst . getCodeLine ( ) ) ; 
uwgknotenC hknotenl (OR, NodeText , Bemerkung ) ; 
pos2 = insert ( hknotenl ) ; 
posl FOR = size ( ) - 1; 
verbindeEcken (posl, pos2,0); 

sprintf (NodeText, "Ver zweigung_KF_D+ (%d) ", LineNr) ; 
uwgknotenC h knot en 5 ( OR, NodeText ) ; 
posIFKFOR = insert (hknotenS ) ; 
verbindeEcken (pos2, posIFKFOR, 0) ; 
buildD2_IFKF_Part (SI, posIFKFOR, SLIF) ; 
switch (SLORIG->first . getKnotenldent ( ) ) { 
case THEN: 
{ 

sprintf (NodeText, "Ver zweigung_DF_Al t . 1_D+ ( %d ) " , LineNr) ; 

uwgknotenC hknoten2 (AND, NodeText ) ; 

insert ( hknotenl , hknoten2, 0 ) ; 

sprintf (Bemerkung, "Alt. 1_D+ ( %d) LineNr) ; 

sprintf (NodeText, "Alt . 1_D+ (%d) LineNr ) ; 

uwgknotenC hknoten3 (CAUSE, NodeText , Bemerkung ) ; 
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insert ( hknoten2 , hknoten3, 0 } ; 

sprintf (NodeText, "Alt . 1_D+ ( %d ) " , LineNr ) ; 

uwgknotenC hknoten4 { OR, NodeText ) ; 

insert ( hknoten2, hknoten4 , 0 ) ; 

posIFDFOR = sized - 1; 

buildD2_Al_Part (SI, posIFDFOR, SLIF, SLORIG); 
} 

break; 
case ELSE: 
{ 

sprintf (NodeText, "Verzweigung_DF_Alt . 2_D+ ( %d ) " , LineNr) ; 

uwgknotenC hknoten2 (AND, NodeText ) ; 

insert { hknotenl , hknoten2 , 0 ) ; 

sprintf (Bemerkung, "Alt . 2_D+ ( %d) ", LineNr) ; 

sprintf (NodeText, "Alt. 2_D+ (%d) LineNr) ; 

uwgknotenC hknoten3 { CAUSE, NodeText, Bemerkung ) ; 

insert (hknoten2, hknoten3, 0) ; 

sprintf (NodeText, "Alt. 2_D+ ( %d ) " , LineNr) ; 

uwgknotenC hknoten4 ( OR, NodeText ) ; 

insert ( hknoten2, hknoten4 , 0) ; 

posIFDFORA2 = sizeU - 1; 

buildD2_Al_Part (SI, posIFDF0RA2, SLIF, SLORIG); 
} 

break; 
default: 

cout « "Autsch! ! ! n « endl; 

} 

return posIFDFOR; 



void uwggraphC: : buildD2_Al_Part ( SliceC & SI, int posl FDFOR_D2 , SI iceC :: iterator SLIF, 
ceC: : iterator SLNODE) { 

int posO_Al = 0; 

int posl_Al = 0; 

int helpNrO - 0; 

int helpNrl = 0; 

int KnotenNrO = 0; 

int KnotenNrl - 0; 

int KnotenNr2 = 0; 

int LineNrO ~ 0; 

int .LineNrl = 0; 

char NodeTextO [ 128 ] ; 

char BemerkungO { 1000] ; 

KnotenNrO = SLNODE->f i rst . getKnotenNummer ( } ; 
LineNrO = SLNODE->fi rst . getLineNr () ; 
sprintf (NodeTextO, "Op%d" , KnotenNrO ) ; 
//sprintf (BemerkungO, "Line %d", LineNrO) ; 
strcpy (BemerkungO, SLNODE->fi rst . getCodeLine ( ) } ; 
uwgknotenC hknotenO ( CAUSE, KnotenNrO, NodeTextO, BemerkungO ) ; 
pos0_Al =* insert ( hknotenO ) ; 
verbindeEcken ( posl FDFOR_D2 , posO^Al , 0) ; 

SliceC: :Nachfolger: : iterator BEGIN0 - SLNODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END0 - SLNODE->second . end ( ) ; 
while (BEGIN0 != END0 ) { 

helpNrO = BEGIN0->first; 

KnotenNrl * SI [ helpNrO ]. fi rst . getKnotenNummer () ; 
if (KnotenNrl > KnotenNrO) { 

LineNrl = SI [ helpNrO ]. fi rst . getLineNr () ; 

sprintf (NodeTextO, "Op%d" , KnotenNrl ) ; 

//sprintf (BemerkungO, "Line %d", LineNrl ) ; 

strcpy ( Berne rkungO, SI [helpNrO] . fi rst . getCodeLine ( ) ) ; 

uwgknotenC hknotenl (CAUSE, KnotenNrl , NodeTextO, BemerkungO) ; 

posl_Al = insert ( hknotenl ) ; 

verbindeEcken (posIFDFOR_D2, posl_Al , 0 ) ; 

SliceC: :Nachfolger: : iterator BEGIN1 = SI [ helpNrO] . second . begin ( ) 
SliceC: :Nachfolger: : iterator END1 = SI [ helpNrO ) . second . end ( ) ; 
while (BEGIN1 != END1 ) { 

if (BEGINl->second == DFK) { 

helpNrl = BEGIN1 ->f i rst ; 

KnotenNr2 = SI [ helpNrl ] .first. getKnotenNummer ( ) ; 
if (KnotenNrl != KnotenNr2 ) { 

SliceC: : iterator SLNODE = defineltera- 

tor (SI, KnotenNr2) ; 

SLNODE ) buildD2_Al_Part (SI, posIFDFOR_D2, SLIF, 
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BEGIN1++; 

} 

} 

BEGINO++; 



void uwggraphC: : buildD2_I FKF_Part (SliceC & SI, int posKFOR_D2, SliceC :: iterator SLPUSE) 
int posO_D2 = 0; 



int 


posl_D2 = 


0; 




int 


ret = 0; 






int 


dummy = 0; 




int 


helpNrO = 


0; 




int 


helpNrl = 


0; 




int 


helpNr2 = 


0; 




int 


checkPUse 




0 


int 


checkNode 




0 


int 


KnotenNrO 




0 


int 


KnotenNrl 




0 


int 


KnotenNr2 




0 


int 


KnotenNr3 




0 


int 


LineNrO = 


0; 




int 


LineNrl = 


0; 





char NodeTextO [ 128] ; 
char BemerkungO [ 1000J ; 

KnotenNrO = SLPUSE->f i rst . getKnotenNumme r { ) ; 
LineNrO = SLPUSE->f irst . getLineNr ( ) ; 
sprintf (NodeTextO, "Op%d n , KnotenNrO ) ; 
//sprintf (BemerkungO, "Line %d", LineNrO ) ; 
strcpyt BemerkungO, SLPUSE->f irst .getCodeLine ( ) ) ; 
uwgknotenC hknotenO (CAUSE, KnotenNrO, NodeTextO, BemerkungO) ; 
posO_D2 = insert (hknotenO ) ; 
verbindeEcken (posKFOR_D2, posO_D2, 0 ) ; 

SliceC: :Nachfolger: : iterator BEGINO = SLPUSE->second . begin () ; 
SliceC: :Nachfolger: : iterator ENDO = SLPUSE->second . end ( ) ; 
while ( BEGINO != ENDO) { 

helpNrO = BEGIN0->f i rst ; 

KnotenNrl « SI [ helpNrO ] . f i rst . getKnotenNumme r ( ) ; 
SliceC: : iterator SLNODE = def ineltera tor ( SI , KnotenNrl ) ; 
if (KnotenNrl > KnotenNrO) { 

LineNrl = SI [ helpNrO] . first . getLineNr £) ; 

sprintf (NodeTextO, "Op%d M , KnotenNrl ) ; 

//sprintf ( BemerkungO, "Line %d", LineNrl ) ; 

strcpy (BemerkungO, SI [helpNrO] .first . getCodeLine ( ) ) ; 

uwgknotenC hknotenl ( CAUSE, KnotenNrl , NodeTextO, BemerkungO) ; 

posl_D2 = insert ( hknotenl ) ; 

verbindeEcken ( posKFOR_D2 , pos 1_D2 , 0 ) ; 

SliceC: :Nachfolger: : iterator BEGIN1 = SLNODE->second . begin () ; 
SliceC: :Nachfolger: : iterator END1 = SLNODE->second . end ( ) ; 
while (BEGIN1 != END1) { 

if (BEGINl->second == DFK) { 

helpNrl = BEGINl-> first; 

KnotenNr2 = SI [ helpNrl ]. fi rst . getKnotenNummer () ; 
if (KnotenNr2 != KnotenNrl) { 

SliceC: : iterator SLNODE = defineltera- 



tor (Sl,KnotenNr2 ) ; 
SI [helpNrl ] . second. begin { ) ; 
SI [helpNrl J . second. end ( ) ; 

SI [helpNr2] . fi rst . getKnotenNummer ( } ; 
def ine It era tor ( SI , KnotenNr3 ) ; 
>f irst . getKnotenNummer ( ) > KnotenNr3J { 
sesl [SI, SLPUSE, HELPPUSE ) ; 

ses2 (SI, SLPUSE, HELPPUSE) ; 



SliceC: :Nachfolger: : iterator BEGIN2 = 

SliceC: :Nachfolger: : iterator END2 = 

while (BEGIN2 != END2 ) { 

if (BEGIN2->second KFK) { 

helpNr2 = BEGIN2->f i rst ; 
KnotenNr3 = 

SliceC: : iterator HELPPUSE = 
if ( SLPUSE - 

checkPUse = checkPU- 



} 

els 



checkPUse = checkPU- 
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WGNode ( KnotenNr2 ) ; 

dOutmostPUse {SI , HELPPUSE ) ; 
>first.getKFGNodeType ( ) ) { 

buildlnLoopTree (SI, posKFOR_D2, HELPPUSE, SLNODE ) ; 
buildlnlfTree (SI, HELPPUSE, SLNODE, posKFOR_D2 ) ; 
"Falscher Weg in Al ! " « endl; 



checkNode = checkU- 

if (checkNode == 0) { 

if (checkPUse ==0) { 

//HELPPUSE = fin 

switch (HELPPUSE 

case LC: 



dummy = 1 
break; 
case IFC: 

ret = 



dummy = 1 
break; 



default: 



else 



SI ( helpNr2) . f i rst . getLineNr ( ) ; 

sprint f {NodeTextO, w Op%d" , KnotenNr2 } ; 

//sprintf (BemerkungO, "Line %d", LineNrl ) ; 

strcpy (BemerkungO, SI [helpNr2] . f i rst . getCodeLine ( ) ) , 
tenl ( CAUSE, Knot enNr 2, NodeTextO, BemerkungO J ; 
insert (hknotenl ) ; 

verbindeEcken (posKFOR_D2, posl_D2, 0) ; 



LineNrl = 



uwgknotenC hkno- 
posl_D2 = 



BEGIN1++; 



} 

BEGIN0++; 



} 

. BEGIN2++; 



SliceC: : iterator uwggraphC: : f indOutmost PUse ( SliceC & SI, SliceC: : iterator SLPUSE) 
int dummy = 0; 
int helpNrl = 0; 
int checkNr = 0; 
int KnotenNrl = 0; 

SliceC; : iterator RETURN = SLPUSE; 

SliceC: :Nachfolger: : iterator BEGIN1 = SLPUSE->second . begin () ; 
SliceC: :Nachfolger: : iterator END1 = SLPUSE->s econd . end ( ) ; 
while ( ( BEGIN1 != END1 ) && (dummy 1)){ 
if (BEGINl->second == KFK) { 

helpNrl = BEGINl->f i rst ; 

KnotenNrl = SI [ helpNrl ) . first. getKnotenNununer ( ) ; 
checkNr = checkUWGNode ( KnotenNrl ) ; 
if (checkNr ==0) { 

SLPUSE = definelterator (SI, KnotenNrl ) ; 
RETURN = f indOutmostPUse (SI, SLPUSE ) ; 
dummy = 1 ; 



} 

else 



RETURN 
dummy = 



= SLPUSE; 
1; 



} 

BEGIN1++; 
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return RETURN; 



int uwggraphC: : checkUWGNode ( int SliceNr) { 
int dummy - 0; 

uwggraphC: : iterator ITER = begin(); 
while (ITER != end ( ) ) { 

if ( ( * ITER ) .first. getCauseNr ( ) == SliceNr) { 
dummy = 1 ; 

} 

ITER++; 

} 

i f { dummy == 1 ) 

return 1; 

else 

return 0; 



SliceC: :iterator uwggraphC; :def inelterator (SliceC & SI, int SliceNr) 
int dummy = 0; 

SliceC: : iterator ITER = Sl.beginf); 
SliceC: : iterator HELP = Sl.beginf J; 
while {(ITER != SI . end ( ) ) && (dummy != 1)} { 

if ( ( *ITER) . first - getKnotenNummer ( ) ==siiceNr) { 
HELP = ITER; 
dummy - 1 ; 

} 

ITER++; 

} 

return HELP; 



void uwggraphC: : SI iceAusgeben ( SliceC & Si ) { 
//int a; 

ofstream Ziel { "Slice . sic" ) ; 

ostream_iterator<KFGListNodeC> POSITfZiel, " Knoten\n" ) ; 
ostream_iterator<KFGLi3tNodeC> POSIT2(Ziel, " Nachfolger: "); 

ostream_iterator<GraphKanteC> KANTEIT (Ziel, "\n")- 
Ziel « "SLICE:" « endl « endl; 
for (int i = 0; i < Sl.sizef); ++i) { 
Ziel « Sl[iJ. first « " <"; 

SliceC: :Nachfolger: :iterator IT = SI [ i J . second . begin () ; 
SliceC: :Nachfolger: .-iterator ITEND = SI [ i ] . second . end ( } * 
while (IT != ITEND) { 

Ziel « SI [ ( + IT) . first] . first « • • // EcJce 

« endl « "Kante:" « (-IT). second « • // Kantenwert 

+ + IT; 

\ 

Ziel « ">\n"; 



ffinclude "uwgkante . h" 
□ 

^include <iostream> 
□ 



□ 
□ 
□ 
□ 



ostream& operator « ( ostream& os, const uwgkanteCi Node ) { 
os « Node. Number << endl ; 
return os; 

} 
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# include "uwgknoten . h" 
□ 

# include <iostreara> 
□ 

□ 

ostream& operator « ( ostreami os, const uwgknotenC& Node) { 

//os « Node . Gatterldent « M n « Node.CauseNr << " " « Node . gattertext << endl 

//return os; 

if ( Node - getNodeldent ( ) == EFFECT) { 

os « •^EFFECT.-V" << Node . gatterbeme rkung « "\" : \"» « Node . gattertext « 
"V\" « Node.Gatterldent « M ,,/0; w « endl; 
return os; 

else if (Node. getNodeldent ( } == OR) { 

os << "%%OR:l:\"" « Node . gattertext « "\ " : \ "keine\ " , " « Node.Gatterldent 
« , /0; " « endl; 

return os; 

} 

else if (Node. getNodeldent ( ) == AND) { 

os « "%%AND:\ ttH « Node. gattertext « n \ n : \ "keine\ " , " « Node.Gatterldent 
« "r,/0;" « endl; 

return os; 

} 

else if (Node. getNodeldent ( ) == NOT) { 

os « "%%NOT:\" M « Node .gattertext « "\ M : \ "keine\ " , " « Node.Gatterldent 
« ,/0;" « endl; 

return os; 

} 

/*else if (Node. getNodeldent ( ) == CAUSE) { 

os « "%%CAUSE:\ ,,M « Node . gattertext « "\ " : \ "keine\ " , " « Node.Gatterldent 
« " , r/0; " « endl; 

return os; 

} V 

else if (Node . getNodeldent ( ) == CAUSE) { 

os « "%%CAUSE:V" « Node . ga tterbemerkung « «\" : \«" << Node . gattertext << 
"\"," « Node.Gatterldent « ",,/0;" « endl; 
return os; 

} 

else { 

os « Node.Gatterldent « " " « Node.CauseNr « M " « Node . gat tertext 

« endl ; 

return os; 




int uwgknotenC : : DummyNr = 1; 
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Pa ten tan spruche 



1 . Verf ahren zur Ermittlung einer Gesamtf ehlerbeschreibung 
zumindest eines Teils eines Computerprogramms, durch einen 

5 Computer, 

• bei dem zumindest der Teil des Computerprogramms gespei- 
chert ist, 

• bei dem eine Kontrollf lufibeschreibung und eine Datenf luJibe- 
schreibung fur den Teil des Computerprogramms ermittelt 

10 werden, 

• bei dem Programmelemente aus dem Teil des Computerprogramms 
ausgewahlt werden, 

• bei dem fur jedes ausgewahlte Programmelement unter Verwe 
dung einer gespeicherten Fehlerbeschreibung, die jeweils 

15 einem Ref erenzelement zugeordnet ist, eine Elementenf ehler- 

beschreibung ermittelt wird, mit der mogliche Fehler des 
jeweiligen Programmelements beschrieben werden, 

• bei dem mit einer Fehlerbeschreibung eines Ref erenzelements 
mogliche Fehler des jeweiligen Ref erenzelements beschrieben 

2 0 werden, und 

• bei dem aus den Elementenf ehlerbeschreibungen die Ge- 
samtf ehlerbeschreibung unter Berticksichtigung der Kontroll- 
f lufibeschreibung und der Datenf lufibeschreibung ermittelt 
wird. 

25 A 

2. Verf ahren nach Anspruch 1, ^ 
bei dem die Kontrollf lufibeschreibung in Form eines Kontroll- 

f lufigraphen vorliegt . 



30 3. Verfahren nach Anspruch 1 oder 2, 

bei dem die Datenf lufibeschreibung in Form eines Datenf lufigra- 
phen vorliegt, 

4. Verfahren nach einem der vorangegangenen Anspruche, 
35 • bei dem die Fehlerbeschreibung in Form eines gespeicherten 
Fehlerbaums vorliegt, 
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• bei dem die Elementenf ehlerbeschreibung als Elementenf eh- 
lerbaum ermittelt wird, und 

• bei dem die Gesamtf ehlerbeschreibung als Gesamt f ehlerbaum 
ermittelt wird. 

5. Verfahren nach einem der vorangegangenen Anspriiche, 
eingesetzt zur Fehleranalyse des Teils des Computerprogramms . 

6.. Verfahren nach einem der vorangegangenen Anspriiche, 

• bei dem die Gesamtf ehlerbeschreibung als Gesamt f ehlerbaum 
ermittelt wird, 

• bei dem der Gesamtf ehlerbaum verandert wird hinsichtlich 
vorgebbarer Rahmenbedingungen . 

7. Verfahren nach Anspruch 6, 

bei dem die Veranderung durch Hinzufugen eines Erganzungsf eh- 
lerbaums erfolgt. 

8. Anordnung zur Ermittlung einer Gesamt f ehlerbeschreibung 
zumindest eines Teils eines Computerprogramms, durch einen 
Computer, 

mit einem Prozessor, der derart eingerichtet ist, daft folgen- 
de Schritte durchfuhrbar sind: 

• zumindest der Teil des Computerprogramms ist gespeichert, 

• eine Kontrollf luflbeschreibung und eine Datenf lufibeschrei- 
bung werden fur den Teil des Computerprogramms ermittelt, 

• Programmelemente werden aus dem Teil des Computerprogramms 
ausgewahlt, 

• fur jedes ausgewahlte Programmelement wird unter Verwendung 
einer gespeicherten Fehlerbeschreibung, die jeweils einem 
Ref erenzelement zugeordnet ist, eine Elementenf ehlerbe- 
schreibung ermittelt, mit der mogliche Fehler des jeweili- 
gen Programmelements beschrieben werden, 

• mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, und 
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• aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibung unter Berucksichtigung der Kontrollf lufibe- 
schreibung und der Datenf lufibeschreibung ermittelt. 

5 9 . Anordnung nach Anspruch 8 , 

bei der der Prozessor derart eingerichtet ist, dafi die Kon- 
trollf lufibeschreibung in Form eines Kontrollf lufigraphen vor- 
liegt , 

10 10. Anordnung nach Anspruch 8 oder 9, 

bei der der Prozessor derart eingerichtet ist, dafi die Daten- 
f lulJbeschreibung in Form eines Datenf lufigraphen vorliegt. 

11. Anordnung nach einem der Anspruche 8 bis 10, 
15 bei der der Prozessor derart eingerichtet ist, dafi 

• die Fehlerbeschreibung, in Form eines gespeicherten Fehler- 
baums vorliegt, 

• die Elementenf ehlerbeschreibung als Elementenf ehlerbaum er- 
mittelt wird, und 

2 0 • die Gesamtf ehlerbeschreibung als Gesamtf ehlerbaum ermittelt 
wird. 

12. Anordnung nach einem der Anspruche 8 bis 11, 
eingesetzt zur Fehleranalyse des Teils des Computerprogramms . 

i 

13. Anordnung nach einem der Anspruche 8 bis 12, ^ 
bei der der Prozessor derart eingerichtet ist, dafi 

• die Gesamtf ehlerbeschreibung als Gesamtf ehlerbaum ermittelt 
wird, 

30 • der Gesamtf ehlerbaum verandert wird hinsichtlich vorgebba- 
r er Rahmenbedingungen . 

14. Anordnung nach Anspruch 13, 

bei der der Prozessor derart eingerichtet ist, dafi die Veran- 
35 derung durch Hinzufugen eines Erganzungsf ehlerbaums erfolgt. 
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15. Computerprogramm-Erzeugnis, das ein computerlesbares 
Speichermedium umfaflt, auf dem ein Programm gespeichert ist, 
das es einem Computer ermoglicht, nachdem es in einen Spei- 
cher des Computers geladen worden ist, folgende Schritte 
durchzufuhren zur Ermittlung einer Gesamtf ehlerbeschreibung 
zumindest eines Teils eines Computerprogramms: 

• zumindest der Teil des Computerprogramms ist gespeichert, 

• eine Kontrollf luBbeschreibung und eine Datenf luBbeschrei- 
bung werden ftir den Teil des Computerprogramms ermittelt, 

• Programmelemente werden aus dem Teil des Computerprogramms 
ausgewahlt, 

• fur jedes ausgewahlte Programmelement wird unter Verwendung 
einer gespeicherten Fehlerbeschreibung, die jeweils einem 
Ref erenzelement zugeordnet ist, eine Elementenf ehlerbe- 
schreibung ermittelt, mit der mogliche Fehler des jeweili- 
gen Programmelements beschrieben werden, 

• mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, und 

• aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibung unter Berucksichtigung der Kontrollf lufibe- 
schreibung und der Datenf luBbeschreibung ermittelt. 

16. Computerlesbares Speichermedium, auf dem ein Programm ge- 
speichert ist, das es einem Computer ermoglicht, nachdem es 
in einen Speicher des Computers geladen worden ist, folgende 
Schritte durchzufuhren zur Ermittlung einer Gesamtf ehlerbe- 
schreibung zumindest eines Teils eines Computerprogramms: 

• zumindest der Teil des Computerprogramms ist gespeichert, 

• eine Kontrollf luBbeschreibung und eine Datenf luBbeschrei- 
bung werden fur den Teil des Computerprogramms ermittelt, 

• Programmelemente werden aus dem Teil des Computerprogramms 
ausgewahlt, 

• fur jedes ausgewahlte Programmelement wird unter Verwendung 
einer gespeicherten Fehlerbeschreibung, die jeweils einem 
Referenzelement zugeordnet ist, eine Elementenf ehlerbe- 
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schreibung ermittelt, mit der mogliche Fehler des jeweili- 
gen Programmelements beschrieben werden, 

• mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 

5 ben, und 

• aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibung unter Berucksichtigung der Kontrollf luflbe- 
schreibung und der Datenf lufibeschreibung ermittelt. 
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Zusammenfassung 

Verfahren und Anordnung zur Ermittlung einer Gesamtf ehlerbe- 
schreibung zumindest eines Teils eines Computerprogramms so- 
wie Computerprogramm-Erzeugnis und computerlesbares Speicher- 
medium 

Aus dem Teil des Computerprogramms werden eine Kontrollf lufi- 
beschreibung und eine Datenf lufibeschreibung ermittelt und es 
werden Programmelemente aus dem Teil des Computerprogramms 
ausgewahlt. Fur jedes ausgewahlte Programmelement wird unter 
Verwendung einer gespeicherten Fehlerbeschreibung die jeweils 
einem Ref erenzelement zugeordnet ist, eine Elementenf ehlerbe- 
schreibung ermittelt, mit der mogliche Fehler des jeweiligen 
Programmelements beschrieben werden. Aus den Elementenf ehler- 
beschreibungen wird die Gesamtf ehlerbeschreibung unter Be- 
rucksichtigung der Kontrollf luBbeschreibung und der Daten- 
f luBbeschreibung ermittelt . 



Figur 2 
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PIS S(B 



50 



SOA^ KontrollfluBgraph 



Slice 



THEN i := k( 4 ) 



Ski ~e 





(T)pOc) 

c0)» deu^' 





Fehlerbaum 

i vor Anweisung 6 fehlerhaft 



■»3 




S3T2 



5"(f g- f^Tl Entseheidung 3 ist wahr 

{^) Anweisung 4 fehlerhaft 
j nach Anweisung 1 fehlerhaft 
Entscheidung 3 ist falsch 



(^Anweisung 5 fehlerhaft 
5£Q"\ JET| ^^v^nach Anweisung 1 fehlerhaft 

(^"Entscheidung 3 fehlerhaft 

g^2r& k nach Anweis^g 2 fehlerhaft 
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fiO/f'V KoatroIlfluBgraph 



Slice 




£20 



WHILE j >0 DO 



i :=i + k*j 



cO), dffl 




1 ... 



^Fehlerbaum 

Qty J[ ^ p~~[ » vor Anweisung 7 fehlerhaft 




tf»3 

i nach Anweisung 1 fehlerhaft 

mindestens 2 Schleifeimimpfausfuhrungen 
Anweisung 6 fehlerhaft 



mindestens 1 Schleifeniumpfausfuhrung 

Anweisung 5 fehlerhaft 
i nach Anweisung 1 fehlerhaft ^ 
j nach Anweisung 2 fehlerhaft 
5m O k nach Anweisung 3 fehlerhaft ~ f $6 

Schleifenentscheidung 4 fehlerhaft 



j nach Anweisung 2 fehlerhaft 
ft It 

Anweisung 6 fehlerhaft 



^6£hQ mindestens 1 ScWeifeimimpfausfuhrung 
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input(n); 
input(a); 

max := 0; 



d(max) 



sum 0; ( 4 ) d(sum) 



i:=2; 

WHILE 
i <= n DO 



IF max < a[i] 
THEN 



d(i) 



max:=a[i] ( 8 



sum:= 
sum+a[i] 



i:=i+l 



c(aA), d(max) 
c(sum t a, i). d(sum) 



avr:=sum / n; f 11) c(sum, n). d(avr) 



output(max); ( 12 ) c(max) 




output(avr); ( 13 ) c(avr) 
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MM 



Fib JO 



AOOA *~ ^r> I avr vor Amrakung 13 fehlerhaft 



MA003 
n nach Anweisung 1 fehlerhaft 

Anweisung 1 1 fehlerhaft 
sum vor Anweisung 1 1 fehlerhaft 




sum nach Anweisung 4 fehlerhaft 



i mindestens 2 Schleifennimpfausfuhrungen 
| Anweisung 10 fehlerhaft 

i mindestens 1 Schleifenrumpfausftihrung 

I Anweisung 9 fehlerhaft 
sum nach Anweisung 4 fehlerhaft -~ A0A5 
i nach Aliweisung 5 fehlerhaft ->-A04& 
a nach Anweisung 2 fehlerhaft x 04 ^ 
i Schleifenentscheidung 6 fehlerhaft ^043 
i nach Anweisung 5 fehlerhaft -^402 0 
n nach Anweisung 1 fehlerhaft ~ 402,4 

Anweisung 10 fehlerhaft 
AOSlH'^) mindestens 1 Schleifenrumpfausftihrung 
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